DOC  FILE  COPY 


DISCLAIMER  NOTICE 


THIS  DOCUMENT  IS  BEST  QUALITY 
PRACTICABLE.  THE  COPY  FURNISHED 
TO  DDC  CONTAINED  A SIGNIFICANT 
NUMBER  OF  PAGES  WHICH  DO  NOT 
REPRODUCE  LEGIBLY. 


Report  NADC  -76335-30 
Contract  N82269-77-C-0095 


BREADBOARD  OROPSONDE 
MINIREFRACTIONSONDE 
ANALYZER 
VOLUME  I 


Marvin  C.  Want 


Analytic 

2500  Maryland  Road 
Willow  Grove.  PA  19090 


Final  Report  for  Period 
23  December  1976  - 22  November  1978 


Approved  for  public  release; 
distribution  unlimited. 


Prepared  for: 

Sensors  and  Avionics  Technology  Department,  Code  3044 
Naval  Air  Development  Center 
Warminster,  PA  18974 


ANALYTICS 


2500  vlARYLAND  RC..  WILLOW  GROVE,  PA  190S0 


i' I REPORT  DOCUMENTATION  PAGE 


BEFORE  COMPLETING  FORM 
3.  RECIPIENT'S  C*T»LOO  NUMBER 


i2.  GOVT  ACCESSION  NO 


5 type  of  report  a period  covered 

Final  Report 
12/23/76  - 11/2 2/78 

6.  performing  org.  report  number 


4^XATLE  (and  Subtitle) 


Breadboard  Dropsonde-Minirefractionsonde 
— Analyzer.  V6l„.  J_  . 


a.  contract  or  gran t numbercs; 


7 autmoro 


Mervin  C./Werst 


10.  PROGRAM  ELEMENT.  PROJECT.  TASK 


AREA  4 WORK  UNIT  NUMBERS 


63207 


Naval  Air  Development  Center 
Warminster,  Pa.  18974 


13.  NUMBER  OF  PAGES 


15.  SECURITY  CLASS.  ( ot  this  report) 


15a.  OECL  ASSIFICATION  DOWNGRADING 
SCHEDULE 


16.  DISTRIBUTION  STATEMENT  (ot  this  Report) 


Approved  for  public  release;  distribution  unlimited 


17.  DISTRIBUTION  STATEMENT  (of  the  abetraci  entered  In  Block  20.  If  different  from  Report) 


18  SUPPLEMENTARY  NOTES 


19  KEY  WOROS  (Continue  on  reverse  side  if  necessary  and  Identify  by  block  number) 

Atmospheric  Soundings  Refractive  Anomaly  Detector 

Radio  Propagation  Anomalies  Propagation  Duct  Locator 

Atmospheric  Refraction  Analysis  Radio  Surveillance 

Radio  Refraction  Analyzer  Surveillance  Radar 


20  ABSTRACT  ( Continue  on  reverse  side  If  necessary  and  Identify  br  block  number) 


A programmable  atmospheric  refraction  analyzer  has  been  assembled  to 
aid  development  of  dropsonde  and  minirefractionsonde  (miniaturized 
balloon-sonde)  sensor  systems  for  the  Navy's  Meteorological  Measuring 
System  (MMS).  Its  Tektronix  4051  Graphic  Display  Computing  System 
with  specially  interfaced  digitizing  equipment  acquires  and  stores 
sonde  data  in  real-time.  Its  variety  of  outputs  include  traditional 
meteorological  profiles  and  special  radio  refraction  profiles  for 


EDITION  OF  I NOV  «J  IS  OBSOLETE 


Unclassified 

SECURITY  CL  ASSlFlC  ATION  OF  THIS  PAGE  'When  Dei 




1 j f,.  \ -23  -E-'c 

Unclassified  / — — — — * 

74-0 No:  7 2 

SECURITY  CLASSIFICATION  OF  THIS  PAGE  rH?i»n  Dele  Entered) 

— — — - — — — : 1 

ACKNOWLEDGMENTS 


The  author  gratefully  acknowledges  the  valuable  assistance 
of  the  following  three  people: 

Mr.  Salvatore  J.  Grillo,  who,  until  recently,  guided  the 
development  effort,  including  most  of  the  work  described  in  this  report. 
Mr.  Grillo  passed  away  in  October  1978.  This  report  is  dedicated  to  his 
memory. 

Mr.  Philip  Kavitsky,  who  performed  some  of  the  programming, 
testing,  and  algorithm  development  work  and  also  prepared  some  of  the 
manuscript  draft  material. 

Ms.  Nancy  Winter,  who  wrote,  organized,  and  edited  some  of 
the  report  material  in  its  final  form. 


TABLE  OF  CONTENTS 


1 .  INTRODUCTION 


1.1  Background 1-1 

1.2  Purpose 1-1 

1.3  Report  Organization  1-2 

2.  ANALYZER  SYSTEM  DESCRIPTION 

2.1  Components 2-2 

2.2  Special  Equipment  and  Interfaces  2-2 

2.3  System  Capacity 2-6 

2.4  Portability  Features  2-8 

2.5  Program  Organization  and  Operation  2-8 

3.  TECHNICAL  DESIGN  BASIS 

3.1  Calculation  of  Telemetered  Resistance  3-1 

3.2  Calculate  Thermistor's  Apparent  Temperature,  Tj  3-1 

3.3  Calculation  of  Apparent  Relative  Humidity,  Hh  3-3 

3.4  Calculate  Air  Temperature,  Ta 3-5 

3.5  Calculate  Relative  Humidity  of  the  Air 3-5 

3.6  Calculate  Pressure  3-7 

3.7  Calculate  Saturated  Water  Vapor  Pressure,  es  3-7 

3.8  Calculate  Refractivity,  N 3-9 

3.9  Calculate  and  Classify  Refractivity  Gradient  3-9 

3.10  Determine  Modified  Refractivity,  M-Units  3-10 

3.11  Determine  Dew-Point  Depression  3-10 

3.12  Calculate  Absolute  Humidity,  Habs  3-11 

3.13  Calculate  Thickness  of  Atmospheric  Layer  3-11 

3.14  Reference,  Temperature  and  Pressure  Data  Restoration  3-12 

3.15  Humidity  Data  Restoration  3-12 

3.16  Data  Reduction 3-13 

3.17  Gap  Processing 3-15 

3.18  Determination  of  Surface  Parameters  3-16 

3.19  Three-Cycle  Stack  Operations  3-18 

3.20  Other  Software  Design  Features  3-19 

4.  OPERATING  INSTRUCTIONS 

4.1  Precautions 4-1 

4.2  Baroswitch  Dropsonde  Processing  4-2 

4.3  CAPS  Dropsonde  and  Minirefractionsonde  Processing  4-5 

5.  PROGRAM  DOCUMENTATION 

5-1  Program  Listings  and  Annotation  5-1 

5-2  Assignment  of  Variables 5-2 


5-1  Program  Listings  and  Annotation  5-1 

5-2  Assignment  of  Variables 5-2 


TABLE  OF  CONTENTS  (continued) 


6.  OPERATIONAL  RECORDER-ANALYZER  INVESTIGATIONS 


6.1  Baroswitch  Calibration  Simplification  6-1 

6.2  Signal  Condi tioner-Decommutator  Performance  6-7 

6.3  Data  Smoothing  and  Reduction 6-17 

6.4  Humidity  Calculation 6-18 

6.5  Synchronous  Decommutation  6-26 

6.6  Operational  Output  6-27 

6.7  Analysis  Algorithm  Improvements  6-28 

6.8  Special  Topics 6-28 

7.  CONCLUSIONS  AND  RECOMMENDATIONS 

7.1  Analysis  Techniques  for  Noise-Effects  Reduction  7-1 

7.2  Analysis  Techniques  for  Processing-Load  Reduction  7-3 

7.3  Other  Recommendations  7-5 


APPENDICES: 

A.  Analysis  Example  for  Baroswitch  Dropsonde 

B.  Analysis  Example  for  CAPS  Dropsonde 

C.  Analysis  Example  for  Minirefractionsonde 

D.  Program  Listing  for  Baroswitch  Dropsonde  Analysis 

E.  Program  Listing  for  CAPS  Dropsonde  Analysis 

F.  Program  Listing  for  Minirefractionsonde  Analysis 

G.  Baroswitch  Calibration  Redundancy  Eliminator  Program  Listing 

H.  Example  of  Program  Output  from  Redundancy  Eliminator 

I.  Program  Test  Results 

J.  First  Data  Run  for  Condi tioner-Decommutator 

K.  Second  Data  Run  for  Conditioner-Decommutator 

L.  Third  Data  Run  for  Conditioner-Decommutator 


iii 


1.  INTRODUCTION 


1.1  BACKGROUND 

Early  in  the  1970s,  the  Navy's  weather  squadron  (WP-3A  aircraft) 
was  scheduled  to  be  dismantled  as  its  supply  of  AN/AMT-6  dropsondes  neared 
exhaustion.  An  improved  dropsonde  was  put  into  development  because  the 
previous  dropsonde  was  not  completely  satisfactory  and  there  was  a need 
for  continuing  measurements  of  increased  accuracy,  density,  and  frequency 
as  outlined  by  the  Advanced  Development  Objective  of  the  Meteorological 
Measuring  System. 

The  dropsonde  development  was  undertaken  by  the  Naval  Air  Develop- 
ment Center  with  the  objective  of  achieving  compatibility  with  the  existing 
logistics  and  launch  facilities  for  sonobuoys,  while  also  achieving  simpler 
dropsonde  preparation  procedures  and  automatic  data  reduction. 

1.2  PURPOSE 

This  report  documents  work  performed  under  contract  N62269-77-C-0095. 
The  contract  was  awarded  by  the  Naval  Air  Development  Center  to  Analytics 
on  23  December  1976  for  the  purpose  of  providing  a Breadboard  Dropsonde 
Analyzer  in  which  automatic  data  reduction  algorithms  could  be  refined  for 
the  baroswitch  pressure  sensing  dropsonde  and  with  which  the  equipment  under 
development  could  be  evaluated.  On  9 June  1977,  the  contract  was  augmented 
to  include  an  investigation  of  techniques  to  simplify  handling  of  baroswitch 
calibration  data.  Again,  on  23  January  1978,  the  contract  was  augmented  to 
include  balloon-borne  minirefractionsonde  operations  and  continuous  analog 
pressure  sensing  dropsonde  operations  in  the  breadboard  and  in  addition, 
operations-related  investigations  to  guide  the  development  of  the  operational 
microprocessor-based  recorder-analyzer. 
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11.3  REPORT  ORGANIZATION 

This  report  is  organized  as  an  integrated  report  in  compliance 
with  the  terms  of  the  contract  modification  and  covers  all  work  performed 
under  the  contract  as  amended.  This  report  therefore  includes,  in  final 
form,  all  material  that  was  published  earlier  in  preliminary  form  under 
the  contract. 
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2.  ANALYZER  SYSTEM  DESCRIPTION 
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The  Breadboard  Dropsonde-Minirefractionsonde  Analyzer  can  be  used 
for  analysis  of  three  different  types  of  soundings: 

(1)  Dropsonde  with  baroswitch  pressure  sensor. 

(2)  Dropsonde  with  continuous  analog  pressure  sensor  (CAPS). 

(3)  Balloon-borne  minirefractionsonde  (with  CAPS). 

The  equipment  complement  of  the  system  is  the  same  for  analyzing 
all  three  types  of  soundings.  The  one  exception  is  that  the  EECO  Paper  Tape 
Reader  is  not  used  in  analyzing  soundings  using  the  CAPS  dropsonde  and  the 
minirefractionsonde.  The  three  types  of  analysis  are  accommodated  by  simply 
using  a different  program  to  control  the  processing. 

The  Breadboard  Dropsonde-Minirefractionsonde  Analyzer's  design 
and  development  are  based  partially  on  principles  that  were  implemented  and 
shown  feasible  in  tne  Engineering  Prototype  Processor  that  was  developed 
by  Analytics  for  NADC  (Contract  No.  N62269-75-C-0382  --  Technical  Report  1167, 
•An  Engineering  Prototype  Processor  Incorporating  Data  for  Refractive  Index 
Profiles*).  -1 


Some  departures  from  the  Engineering  Prototype  Processor's  software 
design  were  dictated  by  differences  in  system  equipment  complement  and 
accompanying  differences  in  performance  capability.  The  analyzer  design  is 
based  on  a dedicated  on-site  processing  system  with  tape  files  and  graphic 
displays,  whereas  the  earlier  prototype  processor  used  a non-dedicated  remote 
system  with  drum  files  and  without  graphic  displays.  The  system  change  was 
made  to  gain  graphic  display  and  cost  advantages. 
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2.1  COMPONENTS 

The  Breadboard  Dropsonde-Minirefractionsonde  Analyzer  System  is 
depicted  in  Figure  2-1.  The  system  components  are  listed  in  Table  2-1. 

2.2  SPECIAL  EQUIPMENT  AND  INTERFACES 

2.2.1  Signal  Digitizing  Counter 

A Hewlett-Packard  model  5328A/011  Universal  Counter  was  selected 

to  digitize  the  incoming  signal  periods  for  the  following  reasons: 

(1)  It  can  perform  all  the  necessary  functions. 

(2)  It  is  plug  compatible  with  the  Tektronix  General  Purpose 
Interface  Bus  (GPIB),  and  therefore  requires  no  special 
interface  design. 

(3)  Its  universal  and  programmable  features  make  it  a valuable 
addition  to  the  4051  system,  permitting  its  use  for  a wide 
variety  of  counting,  frequency  measurement,  and  period 
measurement  applications. 

(4)  Its  purchase  and  interface  costs  appeared  less  than  any 
other  alternative  available  at  the  time  of  selection. 

(5)  It  was  available  with  timely  delivery. 

The  real-time  data  acquisition  by  the  4051  was  accomplished  by 
reducing  the  amount  of  processing  required  with  each  measurement  obtained 
from  the  HP  counter.  To  effect  this  reduction,  it  was  necessary  to  modify 
the  HP  counter's  decimal  point  positioning.  The  modification  consists  of 
a simple  switch  installation  in  the  counter,  as  shown  in  Figure  2-2. 

When  the  switch  is  closed,  the  decimal  point  shifts  four  places 
to  the  left  changing  neither  the  contents  of  the  display  register  nor  the 
exponent.  Thus,  it  effectively  divides  the  displayed  value  by  10,000.  This 
change  permits  the  4051  program  to  be  simple  and  short  with  ,o  operations 
having  long  execution  time;  it  is  thus  capable  of  real-time  acquisition, 
packing  and  internal  storage. 
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Figure  2-1.  Breadboard  Dropsonde  Mini  Refraction  Sonde 
Analyzer  Block  Diagram 
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I Table  2-1.  Breadboard  Dropsonde-Mini refractionsonde  Analyzer 

System  Components  List 

I 

BASIC  Graphic  Unit  (Tektronix  4051;  32K  Memory) 

Hard  Copy  Unit  (Tektronix  4631) 

Interactive  Plotter  (Tektronix  4662)* 

Line  Printer  (Tektronix  4641) 

Magnetic  Cassette  Drive  (Tektronix  4924)* 

Joy  Stick  (Tektronix  4952)* 

Interconnecting  cables  for  all  above  units 
Operating  Manuals  for  Tektronix  4051 
System  Cassettes  for  Tektronix  4051 
Data  Storage  Cassettes  for  Tektronix  4051 
Telemetry  Tape  Reproducer  (Multi speed) 

NADC  Conditioner  for  Reproduced  Telemetry  Signal 
Frequency  Signals  Receptor  (HP5328A/01 1 ) 

Baroswitch  Calibration  Receptor  (EECO  Paper  Tape  Reader)** 
Interface  Electronics  for  EECO  Reader** 

High  and  Low  Pass  Electronic  Filter 

I 


*These  units  are  available  in  the  breadboard  system  although  they  have 
not  been  programmed  into  the  three  instant  analysis  cases  for  portability 
reasons. 

**The  EECO  paper  reader  is  not  used  for  analysis  of  CAPS  droDSonde  and 
CAPS  minirefractionsonde  soundings. 
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INTEGRATED  CIRCUIT 
CHIP  U-30 


Figure  2-2. 


NOTE:  SWITCH  IS  LOCATED  UNDER  TOP  COVER 

OF  COUNTER.  WHEN  IN  CLOSED  POSITION, 
IT  MOVES  THE  DECIMAL  POINT  4 PLACES 
TO  THE  LEFT,  EFFECTIVELY  DIVIDING  THE 
DISPLAYED  VALUE  BY  10,000. 


Decimal  Point  Position  Modification  in 
HP  4328A/011  Universal  Counter 
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The  counter  can  be  restored  easily  to  normal  operation  by  removing 
the  top  cover  and  changing  the  switch  position. 

2.2.2  Calibration  Tape  Reader 

An  EECO  Micromate  paper  tape  reader  was  selected  as  the  input 
device  for  calibration  data  for  the  baroswitches.  The  selection  was  based 
on  the  following  considerations: 

(1)  Excellent  engineering  design  features  show  good  prospects 
for  high  reliability,  ruggedness,  low  tape  wear,  and  data 
fidel ity. 

(2)  TTL  interface  employing  voltage  levels  compatible  with  GPIB 
and  thus  permitting  simplified  interface. 

(3)  Low  cost. 

The  electrical  interface  is  limited  to  hand-shaking  operations, 
since  the  data  levels  were  electrically  compatible.  The  electrical  inter- 
face circuitry  is  shown  in  Figure  2-3.  It  is  assembled  in  a small  module 
that  plugs  into  and  clips  fast  to  the  EECO  connector.  The  GPIB  cable  from 
the  4051  then  connects  to  the  interface  module. 

A data  inversion  is  necessary  to  complete  the  interface.  This  is 
accomplished  by  a software  interface  in  the  4051,  which  uses  the  transparent 
READ  BYTE  statement  to  accept  the  byte  regardless  of  data  content.  A 256- 
complement  operation  accomplishes  the  bit-by-bit  inversion  of  the  byte. 

2.3  SYSTEM  CAPACITY 

The  analyzer  stores  data  in  real-time  as  they  are  received  from  the 
magnetic  tape  reproducer  (or  from  the  sonde  via  telemetry).  The  sounding 
measurements  are  stored  in  approximately  30,000  bytes  of  memory  using 
approximately  five  bytes  per  measurement.  Thus,  rr  ighly  6,000  measurements 
are  stored.  At  the  nominal  sampling  rate  of  10  measurements  per  second, 
this  provides  about  10  minutes  of  real-time  data  storage  capacity  for  drop- 
sondings.  The  data  acquisition  and  storage  program  for  the  balloon-borne 

rm 
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mini  ref ractionsonde  stores  only  every  third  sample  because  the  spatial 
sampling  density  is  roughly  three  times  as  great.  Thus,  approximately  30 
minutes  of  real-time  data  can  be  stored  for  a balloonsounding. 

The  system  performs  calculations  with  an  accuracy  that  exceeds 
ten  digits  of  precision.  This  permits  algorithms  to  be  evaluated  for  fidelity 
well  beyond  the  three  or  four  significant  digits  normally  associated  with 
the  most  accurate  of  meteorological  soundings.  It  further  assures  that 
algorithms  can  be  developed  with  such  high  accuracy  that  processing  errors 
will  be  small  relative  to  the  overall  system  error. 

2.4  PORTABILITY  FEATURES 

The  Tektronix  4051  Graphic  System  used  to  implement  the  analyzer 
includes  a remote  magnetic  tape  cartridge  unit,  an  X-Y  plotter  with  joy 
stick,  a high  speed  printer,  and  a hard  copy  unit  in  addition  to  the  keyboard- 
display-tape  unit  housing  the  computer.  However,  the  software  has  been 
organized  so  that  soundings  can  be  analyzed  using  only  the  keyboard-display- 
tape  unit  and  the  high  speed  printer.  This  permits  easy  transportation  of  the 
analyzer  system  to  a test  site  for  on-location  analysis  of  the  sounding 
data. 


2.5  PROGRAM  ORGANIZATION  AND  OPERATION 

The  three  analysis  programs  are  stored  on  individual  tape  cassettes: 
Baroswitch  Dropsonde  on  cassette  V,  CAPS  Dropsonde  on  cassette  IX,  minirefraction- 
sonde  on  cassette  X.  Each  program  cassette  contains  all  the  programs  needed  to 


run  the  complete  analysis. 

Programs  for  the  three 
similarly  into  four  program  files 

File  No. 

1 
2 

3 

4 


ifferent  types  of  soundings  are  organized 
as  follows: 

File  Name 

Cal ibration-Acquisi tion 
Reduced  Data  File  Builder 
Temp,  Press.,  Hum.  Table  Builder 
Output  Report  Generator 


(1)  File  1 perfonns  acquisition  of  calibration  and  signal  data 
and  files  the  data  on  a cassette. 

(2)  File  2 converts  the  unabridged  data  file  on  tape  into  a 
reduced  data  file  stored  in  internal  memory.  This  data  is 
then  processed  to  eliminate  incongruous  samples. 

(3)  File  3 calculates  temperature,  pressure,  and  humidity  and 
in  the  case  of  the  baroswitch  dropsonde,  performs  sensor 
lag  compensation. 

(4)  File  4 calculates  all  other  desired  atmospheric  parameters 
and  reports  these  utilizing  graphic  displays  and  a printed 
output. 

The  first  file  automatically  loads  into  the  4051  internal  memory 
and  executes  when  the  AUTOLOAD  key  is  depressed.  This  program  immediately 
provides  the  operator  with  a selection  of  programs  to  be  run.  If  calibration- 
acquisition  is  selected,  the  program  remains  resident  and  performs  the 
selected  functions.  If  analysis  is  selected,  the  program  deletes  the  calibra- 
tion and  acquisition  routines  and  appends  the  second  file  from  the  cassette, 
making  the  second  program  file  resident  in  internal  memory. 

If  calibration-acquisition  (file  1)  is  selected,  it  begins  with  the 
construction  of  a calibration  data  file.  Launch  parameters  and  constants 
characteristic  of  individual  sondes  are  entered  here  and  are  stored  in  a 
magnetic  tape  file.  Then  acquisition  of  raw  data  begins. 

In  the  case  of  the  dropsonde:  every  sample  is  collected  and 
packaged  two  per  word  becoming  integer  first,  then  decimal.  Next,  the  raw 
data  are  written  into  a magnetic  tape  file  whose  first  entry  indicates  the 
number  of  samples  contained  in  the  file. 

In  the  minirefractionsonde  case:  the  same  procedure  is  used  as 
for  the  dropsonde  with  the  following  exceptions.  Every  third  sample  is 
collected;  the  data  are  packed  into  words  in  reverse  order  becoming  first 
decimal  and  then  integer;  the  packed  words  are  written  on  magnetic  tape  also 


in  reverse  order.  Again,  the  first  file  entry  indicates  the  number  of 
samples  contained  in  the  file. 

The  effects  of  these  variations  is  to  make  minirefractionsonde 
data  resemble  the  dropsonde's  data  so  that  analysis  software  differences 
can  be  minimized. 

If  analysis  (file  2)  is  selected,  it  executes  automatically  and 
builds  an  internal  file  of  reduced  data  representing  the  entire  sounding. 

The  reduced  data  file  consists  of  time-tagged  period  ratios  for  temperature, 
pressure,  and  humidity.  To  build  this  reduced  data  file,  the  program 
performs  synchronization,  validation,  and  restoration  of  data  in  a three- 
cycle  stack.  The  last  operation  in  the  stack  is  the  conversion  of  the  data 
into  period  ratios.  At  this  point,  the  period  ratios  are  reduced  in  the 
"significant  period  ratio"  subroutine,  and  then  the  final  operation  in 
file  2,  "Gap  Processing"  is  performed.  At  the  completion  of  program  file  2, 
file  2 is  deleted  and  file  3 is  appended  and  executes  automatically,  with 
file  3 the  only  program  resident  in  memory. 

The  third  program  is  automatically  executed  and  processes  the 
internal  file  of  reduced  data  to  produce  profiles  in  temperature,  pressure, 
and  humidity.  In  the  case  of  the  baroswitch  dropsonde,  file  3 also  com- 
pensates for  sensor  lag.  Before  calculating  the  entire  temperature,  pressure, 
and  humidity  profile,  however,  the  program  allows  the  operator  to  see  the 
three  atmospheric  parameters  for  any  given  time  tag  in  order  to  check  them 
for  reasonability.  As  before,  when  program  file  3 has  been  executed,  it 
is  deleted  and  file  4 is  automatically  appended,  making  it  the  only  program 
resident  in  memory. 

File  4 now  performs  the  final  processing  and  reporting.  First, 
in  order  to  build  an  altitude  file,  the  program  determines  surface  con- 
ditions of  temperature,  pressure,  and  humidity,  and  allows  the  operator  to 
change  these  if  desired.  An  altitude  profile  is  now  constructed,  building 
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up  from  the  surface,  and  is  stored  in  an  array  along  with  the  temperature 
pressure  and  humidity  profiles.  Refractivity  in  terms  of  N-units  is  also 
calculated  and  stored  in  the  same  array.  All  parameters  other  than  those 
stored  in  the  aforementioned  array,  however,  are  calculated  each  time  they 
are  used,  due  to  lack  of  storage  space.  The  following  tabulation  depicts  the 
organization  of  the  completed  P-array  in  which  the  quantities  mentioned  above  are 
stored  from  this  point  on  in  the  program's  execution.  The  P-array  is 
dimensioned  to  3 x 400. 


N (Levels] 


P(1,N1 


P ( 2 , N J 


P(3,N 


T i me-T  ag . T emperature  A1 ti tude . Pressure  Ref racti vi ty . Humi di ty 


where  T = number  of  levels  declared  significant  in  file  2 
and  temperature  is  stored  in  (deg-c/1000) + 0.1 
altitude  is  stored  in  feet  x 100 
pressure  is  stored  in  MB/10000 
refractivity  is  stored  in  N-units  x 1000 
humidity  is  stored  in  %/ 1 000 
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Note  that  the  time-tag  for  a pressure  (or  humidity)  value  is  the  time-tag 
for  the  temperature  value  on  the  same  level  + 1 (+2).  Also  note  that  the 
altitude  and  refractivity  values  refer  to  temperature,  pressure  and  humidity 
values  on  the  same  level. 

At  this  point,  the  program  begins  its  reporting  with  the  "Detailed 
List  of  Atmospheric  Parameters"  which  is  output  on  the  high  speed  printer. 

This  list  contains  for  every  cycle  in  the  P-array,  altitude  (ft.  and  M), 
pressure  (MB),  temperature  (deg-c),  relative  humidity  (%),  refractivity 
N-  and  M-units),  saturated  vapor  pressure  (MB),  dew  point  depression, 
refractivity  gradient,  and  refractivity  gradient  classification.  When  this 
list  is  completed,  the  reporting  switches  over  to  the  CRT  display  where 
temperature,  humidity,  and  refractivity  in  N-units  and  M-units  are  plotted 
against  altitude  and  recorded  by  the  hard  copy  unit. 

Now  the  high  speed  printer  is  employed  again  to  print  out  the  list 
of  "significant  levels."  This  listing  is  of  the  same  parameters  printed 
out  in  the  "detailed  list,"  but  only  for  those  levels  deemed  "significant" 
by  an  algorithm  similar  to  that  used  in  file  2.  Here,  though,  the  fit  is 
made  to  linear  trends  of  temperature  and  humidity  vs.  altitude. 

Finally,  the  last  item  reported  is  a third  list  of  the  same  param- 
eters. Here,  though,  the  values  are  chosen  for  specified  values  of  pressure. 
Tnis  printout  is  entitled  "Mandatory  Levels"  and  is  the  final  function  of 
the  program. 

It  should  be  noted  that  there  are  several  program  monitoring  outputs 
which  appear  on  the  CRT  display  during  program  execution.  When  the  program 
has  been  validated  against  a sufficient  number  of  soundings,  these  outputs 
may  be  eliminated. 
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3.  TECHNICAL  DESIGN  BASIS 


Important  software  design  features  for  analyzing  all  three  types  of 
soundings  are  described  in  this  section.  Where  differences  exist  among  the 
sondes,  they  are  identified  and  described.  If  no  difference  is  noted,  the 
feature  applies  to  all  three  sondes.  Some  of  these  features  are  adaptations 
from  the  Engineering  Prototype  Processor. 

3.1  CALCULATION  OF  TELEMETERED  RESISTANCE 


3.1.1  Baroswitch  Dropsonde 

The  telemetered  resistance,  R,  is  calculated  in  kilohms  using  the 

equation. 


F 

R = 52.718  ~ - 47.718, 


where  Fr/F  is  the  ratio  of  reference  frequency  to  parameter  frequency. 

3.1.2  CAPS  Dropsonde  and  Mini  refraction  sonde 

Telemetered  resistance  is  not  calculated.  The  commutation  tech- 
nique makes  it  more  convenient  to  calculate  telemetered  voltages  which  are 
included  in  calculations  that  follow. 

3.2  CALCULATE  THERMISTOR'S  APPARENT  TEMPERATURE,  Tj 

First,  the  thermistor  resistance,  Rj,  is  set  equal  to  the  telemetered 
parameter  resistance,  R,  expressed  in  kilohms. 

R*j.  = R 
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Next,  the  thermistor  resistance  ratio,  ry,  is  determined  using 

Ry 

r-r  * ^ru 


where  Ry^  equals  thermistor  lock-in  resistance  (kilohms).  Then  the  ther- 
mistor's apparent  temperature,  Tj,  is  determined  from 


65.50 


A 


- 273.16 


■0.0480921  In 


- o 


0.33785  (10) 

which  is  the  quadratic  form  of  the  thermistor  characteristics  equation 
developed  by  Analytics  to  replace  the  previously  used  thermistor  calibration 
table  with  interpolation  between  table  values. 


3.2.2  CAPS  Dropsonde  and  Mini  refraction  sonde 

The  apparent  thermistor  temperature  is  calculated  for  both  CAPS- 
equipped  sondes  as  described  here.  First,  the  thermistor's  resistance 
ratio,  r-p , is  calculated  using  the  following  equation: 

rT  = 22.1  ( 1 / ( KR-p ) -1)/Rtli 

where: 

K = ratio  of  supply  voltage  to  reference  voltage,  supplied 
with  sonde 

Ry  = ratio  of  reference  period  to  temperature  period  (Ry<l) 
RTLI  = thennistor  lock-in  resistance  in  kilohms. 

Next,  the  apparent  thermistor  temperature,  Ty,  is  calculated  from  the  ther 
mistor  resistance  ratio,  ry,  using  the  equation  in  the  last  paragraph. 
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CALCULATION  OF  APPARENT  RELATIVE  HUMIDITY,  H H 


3.3.1  Baroswitch  Dropsonde 


First,  the  hygristor  resistance,  R^,  is  calculated  according  to 


r = _CR  - 7.1Q  C250; 
RH  250  - (R  - 7.1 


Then  the  hygrister  ratio,  r^,  is  determined  from 


•H  R, 


where  R^lj  is  the  hygristor  lock-in  resistance. 

Next,  a two-dimensional  interpol ative  procedure  is  utilized  to 
obtain  hygristor's  apparent  relative  humidity,  H^,  from  the  table  of  rH  values. 

3.3.2  CAPS  Dropsonde  and  Minirefractionsonde 

(1)  Relative  Humidity  Resistance  --  The  following  relationship 
converts  measured  humidity  period  ratio  to  resistance  value 
of  the  humidity  element. 

Rh  = (-249(18. 2-K(18. 2+7. 15)  (Pr/Ph))/(18.2-K(18. 2+7.1 5+249 )( P r/P h ) ) 

where: 

R,  = calculated  resistance  of  the  humidity  element  in 
n K ohms 

Pp/P^  3 ratio  of  reference  period  to  humidity  period 

K = ratio  of  reference  voltage  to  dropsonde  sensor 
supply  voltage,  Vcc  (K  = constant  supplied  with 
dropsonde 
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(2)  Apparent  Relative  Humidity  (HH)  --  The  apparent  relative 

humidity  is  then  calculated  using  the  following  set  of  algorithms: 

for  Rh  equal  to  or  greater  than  Rq, 

H H=  33  + a (ln((Rh/Ro)b))c 

where: 

a = . 02T  + 3.2 
b = 15 

c = .9  - ( . 001425T  + .25)  (log(log(Rh/RQ)  + 1))1/3 
and  for  Rh  less  than  RQ, 

H H=  33  - a (ln((Ro/Rh)b))c 
where: 

a = . 02T  + 3.2 
b = 20 

c = .9  - ( .001425T  + .25)  (log(log(RQ/Rh)  + 1))1/3 
In  the  foregoing  algorithm, 

Hj_|  = calculated  apparent  relative  humidity  in  percent 
T = air  temperature  in  °C 

R.  = calculated  resistance  of  the  humidity  element 
in  K ohms 

R = humidity  element  "lock-in"  resistance  in 
0 K ohms  (Rq  = constant  supplied  with  dropsonde) 

In  = natural  logarithm  (base  e) 

log  = logarithm  to  base  ten 


I 

I 
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CALCULATE  AIR  TEMPERATURE,  T, 


3.4.1  Baroswitch  and  CAPS  Dropsondes 


ta  = TT  + LT  IT 


T-j.  = thermistor's  apparent  temperature 
Ly  = thermistor's  lag  coefficient 
t = time  (sec) 

3.4.2  Mini  ref ractionsonde 


T^  is  assumed  equal  to  Ty  due  to  low  velocity  of  balloon  sounding. 


CALCULATE  RELATIVE  HUMIDITY  OF  THE  AIR 


3.5.1  Baroswitch  and  CAPS  Dropsondes 

First,  determine  H^  rate  of  change,  dH^/dt: 

dHH  . Wi  . • 

^ ‘i-'i-l  - H 

if  Hh>0,  then  K]  = 0.17;  K2  = 0.36;  K3  = 17. 


if  Hu<0,  then  K,  = 0.2;  K9  = 0.75;  K,  = 19.3. 


If  Hh  = 0,  do  not  apply  lag  compensation.  To  apply  lag  compensation  (HH  f 0) 
calculate  the  hygristor  lag  coefficient,  L^,  as  follows: 


, _ „ , 273.16  , . v r 273.16  , 3 
LH  " K1  lTA  + 273. 16J  K2  4a  + 273.  16J 
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Finally,  calculate  the  relative  humidity  of  the  air,  H^. 

dH. 


Ha  = Hu  + L 


H 


H 

JH  ~3t" 


3.5.2  Minirefractionsonde 


is  assumed  equal  to  due  to  low  velocity  of  balloon  sounding. 


3.6 


CALCULATE  PRESSURE 


3.6.1  Baroswitch  Dropsonde 

Pressures  for  baroswitch  dropsoundings  are  calculated  by  first 
determining  time-tags  for  baroswitch  contact  breaks,  then  establishing 
the  contact  numbers  associated  with  the  break  time-tags  and  finally  retriev- 
ing from  the  calibration  table  the  pressures  associated  with  each  contact 
number's  time-tag.  From  these  retrieved  pressure  values,  a table  of  time- 
tags  with  associated  pressure  is  built. 


Whenever  pressure  is  needed  in  later  processing,  it  is  calculated 
for  any  desired  time-tag  by  table  look-up  and  linear  interpolation  of  pres- 
sure between  time-tags. 

The  most  difficult  part  of  this  pressure  calculation  procedure 
is  the  automatic  detection  of  contact  breaks,  which  is  illustrated  by  the 
flowchart  in  Figure  3-1.  The  flowchart  illustrates  contact  break  detection, 
although  the  program  is  organized  in  such  a way  that  it  can  also  be  used 
for  make  detection. 


3.6.2  CAPS  Dropsonde  and  Mini refractionsonde 

Both  of  these  sondes  use  the  Honeywel 1 -devel oped  CAPS  type  sensor 
for  pressure  measurement.  An  equation  for  calculating  CAPS-measured  pressure 
has  been  furnished  by  Mr.  Curt  Machenbacher  of  Honeywell.  It  employs  18 
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coefficients  that  are  customized  on  a sensor-by-sensor  basis  and  is  the 
basis  for  the  following  method,  used  for  calculating  pressure  (mb)  for 
CAPS-equipped  sondes: 


' ■ <l!.l+L!.Z  Vcc  + L,,3Vcc!>  <4,4*  4,5  V 4,6  V> 

+ 0-2,1  + 4,2  Vcc  + 4,3  Vcc’i  <4,4  * 4,5  Tp  * 4,6  V>  K vcc  R 
* <4,1  + 4,2  Vcc  * 4,3  »cc*>  <4,4  * 4,5  Tp  * 4,6  V>  K’  Vcc’ 


where: 

P = pressure  in  millibars 

V = supply  voltage  at  input  to  pressure  sensor  measured  at  approximately 
cc  0°C  and  supplied  with  sonde 

Tp  = temperature  of  pressure  sensor  in  degrees  Kelvin 

K = ratio  of  reference  voltage  to  supply  voltage,  supplied  with  each 
sonde 

Rp  = ratio  of  reference  period  to  pressure  period  (Rp  < 1) 

L,  , = 18  sensor  calibration  coefficients  supplied  with  each  sonde. 

1)1  J * U 

3.7  CALCULATE  e$ 

Saturated  water  vapor  pressure  in  millibars,  es,  is  calculated 
for  all  three  sondes  according  to: 


es 


8 1 328  xlO*3  r 10~  3 ' 49149  - I! 

1013.246  x 108,1528  x 10  110 Z 1J 

t5. 02808  7. 90298  1Q1 . 3816  x 10' 7 [1011 ' 344d-t)  . 


where 

T + 273.16 
C “ 373.16 

T = air  temperature  (°C) 
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3.8  CALCULATE  REFRACTIVITY , N 

N is  calculated  for  all  three  sondes  according  to: 

77. 6P  - . 056  HDe  3750  Hne 

m = R_s  + R s 

T +273.16  (T^ + 273 . 16) z 


Ta  = air  temperature  (°C) 

Hr  = relative  humidity  (%) 

e$  = saturated  water  vapor  pressure  (mb) 

P = total  pressure  (mb) 

3.9  CALCULATE  AND  CLASSIFY  REFRACTIVITY  GRADIENT 

3n  * 

The  refractivity  gradient,  is  calculated  for  all  three  sondes 
according  to: 


dN 

Ha 


N 

A 


111 

i-1 


where 

N.  = refractivity  at  current  altitude,  A. 

N^  i = refractivity  at  previous  altitude,  A._^ 

Ai  and  A.  1 are  altitudes  in  feet 

Ai  =•  A,--i 

dN 

The  refractivity  Gradient,  is  classified  for  all  three  sondes 
according  to  the  following: 
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Range 

dN 

37C  < *0.048 


-0.048  < 


dN 

Ha 


< -0.024 


-0.024  < ^ < o 

•sg 


Classification 

Trapping 

Superfractive 

Normal 

Subfractive 


3.10  DETERMINE  M-UNITS 

M-units  are  determined  for  all  three  sondes  as  follows: 

M = N + 0.048  A 

where 

A = altitude  (feet) 

3.11  DETERMINE  DEW  POINT  DEPRESSION 

First,  partial  pressure  due  to  water  vapor  is  calculated  for  all 
three  sonde  types  per  Che  expression: 

e = J-B_  e 
ew  1 00  es 

Next,  temperature  is  found  (by  reiterative  calculation)  at  wnich  e$  will  equal 
the  above  calculated  value  of  ew.  This  is  the  dew  point  temperature. 
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Finally,  dew  point  temperature  is  subtracted  from  air  temperature, 
T^,  to  obtain  dew  point  depression. 

3.12  CALCULATE  ABSOLUTE  HUMIDITY,  HAB$ 

The  following  formula  is  utilized  for  all  three  sondes: 


„ . „ ew  To  * 273'16 

ABS  uo  273.16  grams/m’ 

O A 


where 


D = vapor  density  in  g/m3  at  temperature  T °C  and  pressure  P 
0 millibars  0 0 

e = partial  pressure  due  to  water  vapor  (millibars) 
w 

T^  = air  temperature  (°C) 


3.13  CALCULATE  THICKNESS  OF  ATMOSPHERIC  LAYER 

Layer  thickness  is  obtained  for  all  three  sonde  types  by: 

P P 

Thickness  (meters)  = -29.263242  T'  (In  - In  ) 


where 


T»  = 


28.8  (275.16  + T)  P 

18ITO  es  (T)  +28.8  [P ec  (T)  ] 


100  s 


"P"  = the  geometric  mean  of  the  two  pressures 
T = the  average  temperature 
Hr  = the  average  relative  humidity 
e$(T)  = the  saturated  vapor  pressure  at  the  average  temperature,  T 
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Altitude  to  any  pressure  is  obtained  by  summation  of  thickness 
from  surface  pressure  to  desired  altitude's  pressure. 


3.14  REFERENCE,  TEMPERATURE,  AND  PRESSURE  DATA  RESTORATION 

There  are  limits  to  the  amount  of  change  that  can  be  detected  by 
a sensor  as  a function  of  time.  However,  due  to  noise  that  can  enter  the 
system  during  data  transmission,  any  given  data  signal  can  become  distorted, 
usually  by  some  multiple  of  five  percent.  Therefore,  tests  are  performed 
to  discover  deviant  samples,  and  when  found  they  are  restored  to  a value 
equal  to  the  average  of  their  bounding  samples,  if  their  bounding  samples 
have  been  found  to  be  reasonable. 


When  dealing  with  temperature,  pressure,  and  reference  signals, 
a reasonable  sample -to -sample  change  is  much  less  than  five  percent.  Thus, 
a simple  algorithm  is  used  that  determines  if  a sample  deviates  from  its 
predecessor  by  more  than  a specified  tolerance,  and  if  the  test  proves 
positive,  that  value  is  restored. 


3.15  HUMIDITY  DATA  RESTORATION 

In  the  case  of  humidity,  considerably  larger  signal  changes  can 
occur  very  quickly.  If  the  aforementioned  method  of  data  testing  were  used, 
tolerances  would  have  to  be  large  enough  to  allow  large  data  spikes  to  pass 
unrestored.  Thus,  to  eliminate  data  spikes  in  humidity  measurements,  the 
following  scheme  was  devised: 


given  \ 


A = sample  preceding  one  being  tested 
B = sample  being  tested 
C = sample  succeeding  one  being  tested 


If  AiC,  then: 

If  > -^  (1.02)  or  if  ® ^ (y-^)  then  restore 
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Altitude  to  any  pressure  is  obtained  by  summation  of  thickness 
from  surface  pressure  to  desired  altitude's  pressure. 


3.14  REFERENCE,  TEMPERATURE,  AND  PRESSURE  DATA  RESTORATION 

There  are  limits  to  the  amount  of  change  that  can  be  detected  by 
a sensor  as  a function  of  time.  However,  due  to  noise  that  can  enter  the 
system  during  data  transmission,  any  given  data  signal  can  become  distorted, 
usually  by  some  multiple  of  five  percent.  Therefore,  tests  are  performed 
to  discover  deviant  samples,  and  when  found  they  are  restored  to  a value 
equal  to  the  average  of  their  bounding  samples,  if  their  bounding  samples 
have  been  found  to  be  reasonable. 


When  dealing  with  temperature,  pressure,  and  reference  signals, 
a reasonable  sample -to -sample  change  is  much  less  than  five  percent.  Thus, 
a simple  algorithm  is  used  that  determines  if  a sample  deviates  from  its 
predecessor  by  more  than  a specified  tolerance,  and  if  the  test  proves 
positive,  that  value  is  restored. 


3.15  HUMIDITY  DATA  RESTORATION 

In  the  case  of  humidity,  considerably  larger  signal  changes  can 
occur  very  quickly.  If  the  aforementioned  method  of  data  testing  were  used, 
tolerances  would  have  to  be  large  enough  to  allow  large  data  spikes  to  pass 
unrestored.  Thus,  to  eliminate  data  spikes  in  humidity  measurements,  the 
following  scheme  was  devised: 


given  s 


A = sample  preceeding  one  being  tested 
B = sample  being  tested 
C = sample  succeeding  one  being  tested 


If  AirC,  then: 


If  | > S'  -02)  or  ^ < S’  ( 1 then  restore 

f'A  ^ 
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If  A<C,  then: 


r 


I 
I 

If  F > 7 (1 ,02^  or  if  § < j (y^)  then  restore 

By  this  method,  all  large  changes  that  occur  for  a span  of  only 
one  data  point  are  deemed  noise  spikes.  These  spikes  are  then  restored  to 
the  average  value  of  their  bounding  samples,  if  these  bounding  samples  pass 
a reasonableness  test. 

3.16  DATA  REDUCTION 

Since  more  data  are  acquired  than  is  practical  to  process,  an 
algorithm  is  employed  to  reduce  the  amount  of  data  without  losing  significant 
information.  This  algorithm  selects  a data  point  for  storage  only  if  its 
succeeding  data  point  deviates  by  more  than  some  specified  tolerance  from  the 
linear  trend  established  by  previous  data.  See  diagram  below. 


The  points  above  represent  a random  sampling  of  data.  The  points 
indicated  by  the  arrows  are  deemed  significant  being  the  last  points  that 
follow  within  a tolerance  of  a linear  trend.  Note  that  the  first  and  last 
points,  A and  8,  are  automatically  declared  significant.  See  Figure  3-2 


for  the  data  reduction  algorithm.  Also  incorporated  into  the  algorithm  is 
a feature  that  causes  an  entire  cycle,  meaning  a temperature,  a pressure. 
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Figure  3-2.  Subroutine:  Declaration  of  Significant  Period  Ratios  for  CAPS-Equipped  Sondes 
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and  a humidity  sample  which  occurred  in  succession,  to  be  declared  significant 
when  any  parameter  in  that  cycle  is  found  significant  by  testing  its  slope. 
This  way,  the  number  of  temperature,  pressure,  and  humidity  samples  is  the 
same,  and  if  one  parameter  is  known  at  a particular  time,  the  other  two  are 
known  at  nearly  the  same  time. 

3.17  GAP  PROCESSING 

Due  to  noise  and/or  other  forms  of  interference,  periods  of 
erroneous  data  may  be  acquired.  To  these  erroneous  samples  are  applied 
various  invalid  data  tags  to  make  their  future  identification  easy.  Because 
of  this  and  other  interference  effects,  the  reduced  data  array  can  contain 
tagged  samples  and  other  unreasonable  quantities  that  passed  through  data 
restoration  and  reduction.  To  prevent  undesirable  values  from  proceeding 
further  in  the  processing,  a more  complete  data  restoration,  "Gap  Processing," 
is  performed.  The  regions  of  invalid  data,  called  "gaps,"  are  defined  by 
the  following  two  tests. 
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If  M < (Nil)  N+1  N 

kn 


then  P^+1  is  a gap 


where 

P^+1  is  sample  being  tested 

P^  is  the  last  sample  found  not  to  be  a gap 

T^+.|  is  time-tag  of  sample  being  tested 

T^  is  time-tag  of  the  last  sample  found  not  to  be  a gap 

R is  the  number  of  time-tags  of  trend  equivalent  to  noise 

M is  allowed  trend  of  ratio  per  frame  (a  frame  being  one  com- 

plete cycle  of  reference,  temperature,  pressure,  and  humidity 
signals) 


This  algorithm  proclaims  the  existence  of  a gap  when  the  ratio 
between  two  data  points  does  not  lie  within  a range  determined  by  the  maximum 


allowable  change  due  to  trend  over  the  specified  time  period  plus  a constant 
term  representing  the  probable  maximum  change  due  to  noise. 


The  second  test  discovers  samples  which  had  been  tagged  invalid. 
This  is  done  by  seeing  if  they  are  outside  the  allowed  range  of  data.  If  so, 
they  are  declared  to  be  gaps. 

When  a gap  has  been  found,  the  program  will  continue  searching 
until  it  finds  the  next  valid  sample.  Then,  if  the  gap  spans  a time  period 
less  than  two  seconds,  it  will  automatically  be  replaced  with  values  that 
are  geometrically  interpolated  between  the  samples  bounding  the  gap.  If, 
however,  the  gap  spans  a time  greater  than  two  seconds,  the  program  stops. 

At  this  point,  the  operator  can  either  run  the  program  after  the  stop  to 
execute  the  aforementioned  geometric  interpolation,  or  to  fill  the  gap 
manually  if  other  information  is  known. 

Figure  3-3  shows  an  example  of  information  displayed  by  the  gap 
processing  monitor.  After  a sufficient  sampling  of  soundings  has  been  pro- 
cessed to  demonstrate  that  gap  processing  is  "tuned"  properly,  the  display 
may  be  eliminated. 

3.18  DETERMINATION  OF  SURFACE  PARAMETERS 

3.18.1  Baroswitch  and  CAPS  Dropsondes 

The  program  chooses  the  data  array's  last  time-tag  plus  two  as  the 
time-tag  for  surface  pressure.  Then  the  value  of  surface  pressure  is 
determined  by  extrapolating  to  that  surface  time-tag  using  the  linear  slope 
determined  from  recent  pressure  samples.  Here  the  operator  may  intervene  and 
put  in  a different  surface  pressure  value  if  desired.  If  this  option  is 
chosen,  the  program  calculates  the  time-tag  for  the  operator-entered  surface 
pressure,  again,  by  linear  extrapolation.  This  can  be  done  because  of  the 
nearly  linear  behavior  of  pressure  with  time.  However,  this  argument  is  not 
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Figure  3-3.  Monitor  Display  Illustrating  Operation  of  Gap  Processor 
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valid  for  temperature  and  pressure.  For  these  two  parameters,  the  program 
either  repeats  the  last  samples  in  the  data  array  or  inputs  operator 
selected  values.  To  keep  the  surface  level  in  the  same  format  as  the  pre- 
vious data,  the  time-tags  for  surface  temperature  and  humidity  are  chosen 
to  be  the  surface  pressure's  time-tag  minus  one  and  plus  one  respectively. 

3.18.2  Mini refractionsonde 

The  surface  conditions  should  already  be  resident  in  the  data  array 
because  the  balloonsonde  should  start  transmitting  several  seconds  before 
launch.  The  program  first  prints  out  the  pressure  values  from  the  bottom  up 
until  it  passes  through  a range  of  ten  millibars,  since  the  desired  quantity 
lies  near  the  end  of  the  data.  Now  the  program  scans  the  data  from  the 
bottom  up  and  the  last  value  encountered  before  an  increasing  trend  occurs 
is  chosen  as  the  surface  pressure.  The  operator  is  still  given  a choice, 
however,  to  make  the  surface  pressure  any  of  the  displayed  values.  Surface 
temperature  and  humidity  automatically  become  the  samples  in  the  same  level 
of  the  data  array  as  the  surface  pressure. 

3.19  THREE-CYCLE  STACK  OPERATIONS 

Most  of  the  analyzer's  processing  of  raw  data  is  accomplished  while 
the  data  are  moving  through  a three-cycle  stack.  The  stack  holds  three 
complete  commutation  cycles  and  the  four  reference  values  that  bound 
them. 

A cycle  is  declared  in  sync  if  it  consists  of  three  consecutive 
values  in  the  data  range  and  is  bounded  by  two  values  in  the  reference 
range.  The  cycle  is  validated  and  found  qualified  for  analysis  if  its 
individual  values  pass  reasonableness  checks  in  which  they  are  compared  with 
their  corresponding  values  in  the  predecessor  and/or  successor  cycles.  The 
data  restoration  functions  are  also  performed  in  the  stack.  The  last  stage 
of  processing  in  stack  results  in  the  calculation  of  time-tagged  period 
ratios  that  eliminate  the  need  for  carrying  reference  values  any  further. 

Only  the  significant  period  ratios  are  stored  in  the  reduced  data  file. 

r a ^ 
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The  elimination  of  reference  values  and  insignificant  data  values 
causes  the  data  bank  to  be  small  enough  for  residence  in  internal  memory, 
greatly  reducing  the  processing  time. 

The  operations  of  the  three-cycle  stack  are  detailed  in  the  flowchart 
shown  in  Figure  3-4. 

3.20  OTHER  SOFTWARE  DESIGN  FEATURES 

In  addition  to  the  19  design  features  already  described,  graphic 
display  monitors  and  reports  are  included  in  the  analyzer  software  as 
illustrated  in  this  report.  Further  design  features  include  a software 
system  architecture  applicable  for  microprocessor  use  in  the  fleet  and  a 
front  end  that  can  be  used  for  storing  digitized  data  either  on  magnetic 
tape  or  on  a RAM  board. 
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Figure  3-4.  Operation  of  3-Cycle  Stack 
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4.  OPERATING  INSTRUCTIONS 


I 
I 
I 

I 

| 

It  is  assumed  that  the  operator  has  some  familiarity  with 
the  Tektronix  4051  Graphic  Computing  System  such  as  can  be  gained  in 
several  hours  of  reading  the  Tektronix  manuals  and  experimenting  with 
the  system.  It  is  also  assumed,  of  course,  that  the  operator  is  of  a 
technician  or  engineer  skill  level  and  is  familiar  with  computer 
terminology. 

4.1  PRECAUTIONS 

The  tape  cassette  read  head  must  be  cleaned  periodically. 
Follow  Tektronix  instructions.  Note  that  the  program  cassette  appro- 
priate to  the  baroswitch  dropsonde  (cassette  V or  VIII),  the  CAPS 
dropsonde  (cassette  IX),  or  the  mini refractionsonde  (cassette  X)  must 
be  inserted.  All  three  programs  are  on  "backup"  cassette  XIII. 

, CAUTION 

The  cassettes  have  a "safe"  lock  to  prevent  accidental 
[writing  on  the  tape.  When  writing  is  wanted,  make  sure  the  cassette 
jis  set  off  "safe"  before  attempting  the  write  operation.  If  this  is 
(not  done,  an  error  message  will  be  produced  when  file  marking  (or 
[writing)  is  attempted.  If  such  an  error  occurs,  make  certain  the 
[FIND  statement  is  repeated.  Failure  to  do  so  may  cause  loss  of  other 

I 

•files  from  tape. 

i 

i 

j 

Before  a cassette  is  used  in  the  program  ensure  that  it  has 
[at  least  the  first  file  already  marked  or  the  possibility  exists  of 

I 

[the  tape  running  off  of  one  of  its  reels.  Also  note  that  when  a mark 

I 

[statement  is  executed,  all  files  on  tape  succeeding  that  marked  file 

I 

[are  destroyed. 
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Time  does  not  permit  the  investigation  of  all  possible  com- 
binations of  operating  conditions  in  a complex  computer  system.  There- 
fore, seemingly  trivial  departures  from  these  operating  instructions 
might  cause  improper  operation.  Follow  the  instructions  carefully. 


4.2  BAROSWITCH  DROPSONDE  PROCESSING 

Operating  instructions  are  included  in  the  program  and  cover 
operations  peculiar  to  dropsonde  processing.  These  instructions  are 
included  in  the  software  in  interactive  fashion  and  are  very  explicit. 
Other  instructions  that  could  not  be  conveniently  included  in  the 
program  are  included  in  this  section. 


4.2.1 


Calibration  and  Acquisition 


All  controls,  buttons,  keys,  etc.  are  found  on  the  4051, 


unless  otherwise  noted. 


! 


(1)  Turn  on  the  4051,  hard  copy  unit,  HP  counter,  EECO 
reader. 

(2)  Press  PAGE  button  on  4051  keyboard  when  screen 
floods. 

(3)  Insert  the  Breadboard  Dropsonde  Analyzer  program 
cassette  V into  internal  unit  of  the  4051  and 
press  AUTOLOAD. 

(4)  Follow  instructions  given  on  the  screen  of  the  4051. 

(5)  When  the  screen  indicates  that  the  tape  reader  should 
be  prepared  for  operation,  make  certain  the  tape 
reader  is  connected  to  the  GPIB  and  the  calibration 
tape  is  loaded  in  the  reader  with  the  start  block's 
center  at  the  photo  electric  reader.  The  start  block 

is  a series  of  about  30  or  40  rubouts  (all  holes  punched). 

(6)  When  the  screen  indicates  that  the  HP  counter  should 
be  prepared  for  operation,  make  certain  the  following 
conditions  exist  (these  conditions  should  be  achieved 
with  GPIB  disconnected  to  make  certain  there  is  no 
accidental  data  entry  or  interrupt  of  the  4051): 
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(a)  Magnetic  tape  reproducer  unit  turned  on  with 
tape  loaded  and  ready  to  start  reading  tape 
several  seconds  before  signal  start. 

(b)  Magnetic  tape  reproducer  unit's  output  signal 
connected  through  filter  to  HP  counter  input 

A and  from  HP  counter  output  A to  decommutator 
uni  t. 

(c)  Decommutator  Unit  turned  on  and  preadjusted  for 
synchronous  decommutation  in  accordance  with 
its  operating  instructions. 

(d)  Decommutator's  read  enable  output  connected 
to  channel  B of  HP  counter. 

(e)  HP  counter  controls  set  as  follows: 

GPIB  address  = 3 (on  rear  of  counter) 

function  PER  AVG  = A 
N = 10 

sample  rate  = HOLD 
Level  A settings 

trigger  = 12:30  o'clock  (approx,  zero  volt  level) 
delay  = OFF 
slope  = + 
atten  = 1 

Level  B settings 

trigger  = 3:00  o'clock  (approx.  1.2  volt  level) 
slope  = + 
attrn  = 1 
coupling  = DC 

Channel  connections  = SEP,  1 Mfi 

(f)  Above  conditions  should  be  achieved  and  a dry 
run  started  with  GPIB  disconnected  to  measure 
time  duration  of  data  and  to  ascertain  that 
reasonable  counts  are  being  obtained  on  HP 
counter  (and  that  satisfactory  decommutation 
trace  is  observed  on  oscilloscope,  if  helpful). 

(g)  Re-establish  start  conditions  after  OK  operation 
is  confirmed. 
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Connect  the  GPIB  cable.  The  counter  is  now  ready  to 
enter  data  into  the  4051,  and  the  return  key  on  the 
4051  should  be  depressed  only  after  all  the  above 
preparations  have  been  made  and  the  time  duration 
has  been  entered  into  the  4051. 

After  the  return  key  has  been  depressed,  the  4051 
is  waiting  for  interrupts  from  the  HP  counter. 

The  tape  reproduction  unit  should  then  be  turned  on, 
and  the  data  entry  will  commence. 

When  all  the  data  have  been  entered,  stop  the 
reproducer. 

(7)  Following  data  entry,  the  screen  will  display  the 
data  obtained  so  that  it  may  be  checked  for  reason- 
ableness. The  operator  will  then  be  given  an  option 
to  re-enter  the  data,  if  desired.  If  the  operator 
elects  to  continue,  a copy  of  the  data  may  be  made 
and  the  data  will  be  recorded  on  a magnetic  cassette. 
The  magnetic  tape  cassette  number  and  file  numbers 
should  be  recorded  for  future  use. 

(8)  The  data  file  and  cal i bration  files  have  been  built 
when  so  advised  by  the  screen. 


4.2.2  Analysis 

Further  processing  is  accomplished  by  simply  reinserting 
program  cassette  V in  the  internal  unit  and  pressing  AUTOLOAD.  When  the 
screen  asks  for  a selection  of  option,  select  analysis  instead  of  cali- 
bration and  acquisition. 

As  before,  the  screen  will  give  explicit  instructions  whenever 
something  is  to  be  done  by  the  operator.  Most  of  these  instructions  are 
concerned  with  options  the  operator  may  select.  The  analysis  will  con- 
tinue through  files  2 and  3 and  conclude  with  production  of  reports  by 
file  4. 
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CAPS  DROPSONDE  AND  MINIREFRACTIQNSSQNOE  PROCESSING 
Operating  instructions  are  included  in  the  program  and  cover 
operations  peculiar  to  CAPS-equipped  sondes.  These  instructions  are 
included  in  the  software  in  interactive  fashion  and  are  very  explicit 
as  they  appear  on  the  screen.  Other  instructions  that  could  not  be 
conveniently  included  in  the  program  are  included  in  this  section. 

4.3.1  Calibration  and  Acquisition 

All  controls,  buttons,  keys,  etc.  are  found  on  the  4051, 
unless  otherwise  noted. 


(1)  Turn  on  the  4051,  hard  copy  unit,  HP  counter,  EECO 
reader. 

(2)  Press  PAGE  button  on  4051  keyboard  when  screen  floods. 

(3)  Insert  the  Breadboard  Dropsonde  Analyzer  program 
cassette* into  the  internal  unit  of  the  4051  and  press 
AUTOLOAD. 

(4)  Follow  instructions  given  on  the  screen  of  the  4051. 

(5)  When  the  screen  indicates  that  the  HP  counter  should 
be  prepared  for  operation,  make  certain  the  following 
conditions  exist  (these  conditions  should  be  achieved 
with  GPIB  disconnected  to  make  certain  there  is  no 
accidental  data  entry  or  interrupt  of  the  4051): 

(a)  Magnetic  tape  reproducer  unit  turned  on  with  tape 
loaded  and  ready  to  start  reading  tape  several 
seconds  before  signal  start. 

(b)  Magnetic  tape  reproducer  unit's  output  signal 
connected  through  filter  to  HP  counter  input  A 
and  from  HP  counter  output  A to  Decommutator 
Unit. 


♦Insert  cassette  IX  if  CAPS  Dropsonde,  X if  Minirefractionsonde. 

[7D 
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(c)  Decommutator  Unit  turned  on  and  preadjusted  for 
synchronous  decommutation  in  accordance  with 
its  operating  instructions. 

(d)  Decommutator's  rear  enable  output  connected  to 
arming  signal  input  on  rear  of  HP  counter. 

(e)  HP  counter  controls  set  as  follows: 

GPIB  address  = 3 (on  rear  of  counter) 

function  PER  AVG  = A 
N = 10 

sample  rate  = HOLD 
Level  A settings 

trigger  = 12:30  o'clock  (approx,  zero  volt  level) 
delay  = OFF 
slope  = + 
atten  = 1 

Level  B settings 

trigger  = 3:00  o'clock  (approx.  1.2  volt  level) 
slope  = + 
atten  = 1 
coupling  = DC 

Channel  connections  = SEP,  1 MT2 

(f)  Above  conditions  should  be  achieved  and  a dry  run 
started  with  GPIB  disconnected  to  measure  time 
duration  of  data  and  to  ascertain  that  reasonable 
counts  are  being  obtained  on  HP  counter  (and 
that  satisfactory  decommutation  trace  is  observed 
on  oscilloscope,  if  helpful). 

(g)  Re-establish  start  conditions  after  OK  operation 
confi rmed. 

Connect  the  GPIB  cable.  The  counter  is  now  ready  to 
enter  data  into  the  4051,  and  the  return  key  on  the 
4051  should  be  depressed  only  after  all  the  above 
preparations  have  been  made  and  the  data  time  duration 
has  been  input  to  the  4051. 

After  the  return  key  has  been  depressed,  the  4051  is 
waiting  for  interrupts  from  the  HP  counter.  The  tape 
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reproduction  unit  should  then  be  turned  on,  and 
the  data  entry  will  commence. 

When  all  the  data  have  been  entered,  stop  the 
reproducer. 

Following  data  entry,  the  screen  will  display  the 
data  obtained  so  that  it  may  be  checked  for  reason- 
ableness. The  operator  will  then  be  given  an  option 
to  re-enter  the  data,  if  desired.  If  the  operator 
elects  to  continue  a copy  of  the  data  may  be  made  and 
the  data  will  be  recorded  on  a magnetic  cassette. 

The  magnetic  tape  cassette  number  and  file  numbers 
should  be  recorded  for  future  use. 

The  data  file  and  calibration  files  have  been  built 
when  so  advised  by  the  screen. 


4.3.2  Analysis 

Further  processing  is  accomplished  by  simply  reinserting  the 
program  cassette* into  the  internal  unit  and  pressing  AUTOLOAD.  When 
the  screen  asks  for  a selection  of  option,  select  analysis  instead  of 
calibration  and  acquisition. 


(6) 

(7) 


As  before,  the  screen  will  give  explicit  instructions  whenever 
something  is  to  be  done  by  the  operator.  Most  of  these  instructions  are 
concerned  with  options  the  operator  may  select.  Analysis  will  proceed 
through  files  2 and  3 and  conclude  with  reports  output  by  file  4. 

Note  that  in  the  case  of  program  stops  encountered  during  "gap  processing, 
section  3.17  explains  the  options  provided. 

^Cassette  IX  if  CAPS  Dropsonde,  X if  Minirefractionsonde. 
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reproduction  unit  should  then  be  turned  on,  and 
the  data  entry  will  commence. 

When  all  the  data  have  been  entered,  stop  the 
reproducer. 

(7)  Following  data  entry,  the  screen  will  display  the 
data  obtained  so  that  it  may  be  checked  for  reason- 
ableness. The  operator  will  then  be  given  an  option 
to  re-enter  the  data,  if  desired.  If  the  operator 
elects  to  continue  a copy  of  the  data  may  be  made  and 
the  data  will  be  recorded  on  a magnetic  cassette. 

The  magnetic  tape  cassette  number  and  file  numbers 
should  be  recorded  for  future  use. 

(8)  The  data  file  and  calibration  files  have  been  built 
when  so  advised  by  the  screen. 


4.3.2  Analysis 

Further  processing  is  accomplished  by  simply  reinserting  the 
program  cassette* i nto  the  internal  unit  and  pressing  AUTOLOAD.  When 
the  screen  asks  for  a selection  of  option,  select  analysis  instead  of 
calibration  and  acquisition. 


As  before,  the  screen  will  give  explicit  instructions  whenever 
something  is  to  be  done  by  the  operator.  Most  of  these  instructions  are 
concerned  with  options  the  operator  may  select.  Analysis  will  proceed 
through  files  2 and  3 and  conclude  with  reports  output  by  file  4. 

Note  that  in  the  case  of  program  stops  encountered  during  "gap  processing", 
section  3.17  explains  the  options  provided. 


♦Cassette  IX  if  CAPS  Dropsonde,  X if  Minirefractionsonde. 
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5.  PROGRAM  DOCUMENTATION 

! 

5.1  PROGRAM  LISTINGS  AND  ANNOTATION 

The  programs  are  written  in  Tektronix  Extended  Basic  for  the 
Tektronix  4051  Graphic  System.  The  listings  of  the  four  files  of 
each  program  are  presented  in  Appendixes  D,  E and  F as  shown  below. 

DIRECTORY  OF  PROGRAM  LISTINGS 


PROGRAM  NAME 

FILE  NUMBER  AND  NAME 

APPENDIX 

FIGURE 

BAROSWITCH  DROPSONDE 

1 . 

Cali bration-Acquisi tion 

D 

D-l 

BAROSWITCH  DROPSONDE 

2. 

Reduced  Data  File  Builder 

D 

D-2 

BAROSWITCH  DROPSONDE 

3. 

T,  P,  H Table  Builder 

D 

D-3 

BAROSWITCH  DROPSONDE 

4. 

Output  Report  Generator 

D 

D-4 

CAPS  DROPSONDE 

1. 

Cal i bration-Acquisi  tion 

E 

E-l 

CAPS  DROPSONDE 

2. 

Reduced  Data  File  Builder 

E 

E-2 

CAPS  DROPSONDE 

3. 

T,  P,  H Table  Builder 

E 

E-3 

CAPS  DROPSONDE 

4. 

Output  Report  Generator 

E 

E-4 

MINI  REFRACT I ONSONDE 

1 . 

Cali bration-Acqui si tion 

F 

F-l 

MINI  REFRACT IONSONDE 

2. 

Reduces  Data  File  Builder 

F 

F-2 

MINI REFRACTIONSONDE 

3. 

T,  P,  H Table  Builder 

F 

F-3 

MINI REFRACTIONSONDE 

4. 

Output  Report  Generator 

F 

F-4 

Note  that  remark  (REM)  statements  are  used  liberally  throughout  the 
program  to  explain  what  is  being  done  and  to  define  variables  used  in  sub- 
routine interfaces  and  within  the  programs.  Many  of  the  subroutines  are 
very  simple  and  such  remarks  make  them  self-explanatory. 

Where  adequate,  the  remark  statements  are  the  preferred  method 


of  program  documentation  because  they  are  easily  updated  and  they  "follow" 
the  program  whenever  it  is  renumbered  automatically. 


See  Sections  3.19,  3.16  and  3.20  of  Technical  Design  Basis  for 
flowcharts  on  three-cycle  stack  operations,  significant  period  ratio 
determination,  and  baroswitch  make/break  detection. 

5.2  ASSIGNMENT  OF  VARIABLES 

The  number  of  variables  assigned  in  the  three  programs  approaches 
the  total  number  of  variables  allowed  by  the  programming  languages.  As  a 
guide.  Table  5-1  gives  the  variables  assigned  in  the  CAPS  dropsonde  and 
minirefractionsonde  programs.  The  variables  with  numbers  of  order  7,  8, 
or  9 (for  example  M9  or  D7)  are  usually  short-lived,  and  may  have  several 
different  designations.  Most  variables  of  low  number  (for  example  F0  or  LI) 
are  long-lived  and  may  have  only  one  designation.  Pure  letter  variables 
(such  as  B or  D)  are  usually  subscripted  and  represent  arrays. 


I 

I 

I 

I 

I 


adaptation. 

6.1  BAROSWITCH  CALIBRATION  SIMPLIFICATION 

6.1.1  Introduction 

6.1.1 .1  Purpose 

The  goal  of  this  effort  was  to  simplify  the  equipment  and/or 
procedures  for  introducing  baroswitch  calibration  data  into  dropsounding 
processors. 

6. 1.1. 2 Background 

The  baroswitch  calibration  data  are  obtained  by  automatically 
recording  each  contact-make  pressure  while  the  pressure  is  slowly 
decreased.  Each  switch  is  purchased  with  calibration  data  in  two  forms: 

(1)  A printed  table  of  pressure  values  in  millibars, 
showing  the  pressure  for  each  contact-make  during 
pressure  reduction;  and 

(2)  A punched  paper  tape  containing  the  same  pressure 
values 


Both  the  table  and  tape  contain  the  switch  serial  number  and 
pressure  data  check  sum  to  provide  confidence  in  switch  identification 
and  data. 

m 
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6. 1.1. 3 Data  Entry  Problems 

There  are  two  data  entry  methods  that  can  be  implemented, 
based  on  the  existing  data  forms: 


1 

By  using  the  printed  table,  the  pressures  can  be 
entered  manually  with  a keyboard  that  already 
exists  in  the  processing  system. 

(2) 

By  using  the  tape,  the  pressures  can  be  entered  with 
a punched  tape  reader  that  would  be  interfaced  with 
the  processor  specifically  for  that  purpose. 

Both  methods  have  disadvantages.  The  manual  method  is  very 
slow,  resulting  in  poor  processing  response  and  high  operating  cost. 

The  second  method  requires  the  addition  of  a dedicated  punched  paper 
tape  reader,  causing  higher  procurement  and  logistics  costs. 

6. 1.1. 4 Solution  by  Eliminating  Data  Redundancies 

If  the  quantity  of  calibration  data  can  be  reduced  so  that 
entry  can  be  accomplished  with  the  existing  keyboard  about  as  quickly 
as  by  tape  reader,  there  will  be  an  advantage,  assuming  that  the  reduced 
quantity  of  data  can  be  produced  automatically  at  a cost  that  is  less  than 
the  data  introduction  cost  using  either  previous  alternative. 


The  automatic  baroswitch  calibration  redundancy  eliminator 
described  here  has  been  tested  and  evaluated  and  found  capable  of  greatly 
reducing  the  quantity  of  data  entries,  while  maintaining  a controlled 
accuracy.  It  operates  on  a digital  basis  so  that  reconstruction  of  the 
contact  pressures  can  be  accomplished  with  zero  error.  However,  signifi- 
cant further  reductions  are  frequently  possible  by  permitting  small 
tolerable  errors. 


6.1.2 


Redundancy  Elimination  Program 
6. 1.2.1  Program  Description 

The  redundancy  eliminator  has  been  implemented  in  the  Bread- 
board Dropsonde  Analyzer  in  the  following  way. 

A punched  tape  input  is  used  to  build  an  internally  stored 
file  of  pressures.  These  pressures  for  individual  contacts  are  then  used 
to  calculate  and  file  the  pressure  intervals  between  successive  contacts. 
A profile  of  local  interval  averages  is  calculated  and  used  as  a basis 
for  calculating  each  interval's  deviation.  The  intervals  are  smoothed 
by  adjusting  intervals  in  the  order  of  their  deviation,  largest  first. 

The  adjustments  are  made  to  obtain  agreement  with  neighboring  intervals. 
When  all  deviations  are  small,  roughly  0.7  millibar  or  less,  final 
smoothing  is  applied  by  scanning  the  intervals  and  adjusting  to  a 
"staircase"  type  of  profile,  with  the  staircase  risers  representing  the 
quantized  interval  changes  and  the  staircase  trends  representing  the 
persistance  of  each  interval.  Processing  to  achieve  staircase  is 
directed  toward  a near-minimum  number  of  interval  adjustments. 

The  interval  staircase  is  encoded  into  a data  block  containing 
the  initial  interval,  followed  by  the  persistence  of  each  interval,  and 
concluded  by  the  check  sum  of  all  the  data  in  the  staircase  block.  The 
staircase  data  block  typically  contains  15  to  20  hexadecimal  digits. 

The  smoothed  intervals  can  be  reconstructed  from  this  staircase  block. 

The  adjusted  interval  numbers  are  encoded  into  an  intervals 
array  containing  the  initial  contact's  deviation  from  standard  pressure, 
followed  by  the  increments  between  successive  adjusted  interval  numbers, 
and  concluding  with  a check  sum.  There  are  typically  30  to  35  adjusted 
intervals.  The  array  contains  about  20  to  25  digits  including  initial 
pressure  and  check  sum  digits  when  encoded  with  error  tolerance.  It 
identifies  the  staircase  intervals  that  must  be  adjusted  to  obtain  the 
original  interval's  profile. 


6-3 


Finally,  the  actual  adjustments  are  encoded  into  an  adjustment 
array  of  about  20  to  25  digits.  The  three  arrays  of  roughly  70  digits 
contain  all  the  data  needed  to  reconstruct  the  pressure  table. 

A simplified  flow  chart  depicting  program  operation  is  shown 
in  Figure  6-1.  A listing  of  the  program  is  given  in  Appendix  G. 


6. 1.2. 2 Program  Operation 

The  program  has  been  used  to  obtain  smoothed  interval  profiles 
from  five  punched  tapes  selected  at  random  from  the  representative  tapes 
supplied  by  the  government.  The  program  uses  the  graphic  display  as  a 
monitor  providing  a soft  copy  record  of  operations  performed.  A hard 
copy  of  the  monitor  display  can  be  obtained  by  simply  pressing  the  "copy" 
button  before  pressing  "page".  The  monitor's  displays  include  the  pres- 
sure table. 


The  program  output  is  printed  on  the  line  printer  in  such  a 
way  that  accuracy  and  length  of  encoded  message  can  be  assessed  easily. 
The  printed  outputs  include  the  original  intervals  array,  the  interval 
adjustments  and  sequence  during  preliminary  smoothing,  the  array  of 
smoothed  intervals,  and  the  array  of  interval  adjustments. 

The  hard  copy  of  monitor  displays  and  the  line  printer  copy 
for  baroswitch  serial  number  104-9661  are  shown  in  Appendix  H as  an 
example  of  the  complete  program  output  obtained  in  a typical  run. 

The  program  operating  instructions  are  simple:  "FIND",  "OLD" 


and  "RUN"  the  program  file.  Respond  to  operator  instructions  as  they 
appear  on  the  monitor  display.  The  program  is  stored  in  cassette  IV, 
file  32  and  in  cassette  I,  file  25. 


Build  pressure  Intervals  array 


To 

Encoding 

Program 


Figure  6-1 . Simp! i fied  Flow  Chart  for  Redundancy  Eliminator 


6.1.3 


I 

I 

I 

I 

I 

I 

I 


I 


Program  Test  and  Evaluation 


6. 1.3.1  Test  Results 

The  results  of  test  runs  on  the  five  representative  baro- 
switches,  mentioned  earlier,  are  shown  in  Appendix  I.  The  results  shown 
there  are  confined  to  the  outputs  essential  for  evaluation  of  the  results 
and  consist  of  pressure  tables,  original  interval  tables,  adjustment 
tables,  and  smoothed  interval  tables.  These  tables  are  shown  for  each  of 
the  five  baroswitches  on  a switch-by-switch  basis  for  maximum  clarity. 


6. 1.3. 2 Evaluation  of  Test  Results 

A detailed  examination  of  the  test  results  of  Appendix  I shows 
that  the  program  achieves  the  desired  smoothing  of  intervals  as  described 
in  Section  6. 1.2.1,  and  that  the  intervals,  adjustments,  and  initial 
pressure  are  encodable  as  described  for  reconstructi on  of  the  original  pres- 
sure table  with  absolute  precision  or  with  an  error  tolerance  to  obtain 
further  reduction  of  data. 

6.1.4  Concl usions 

Development  of  the  calibration  redundancy  eliminator  has  been 
advanced  to  the  point  where  feasibility  of  the  described  approach  has 
been  demonstrated. 

However,  recent  developments  in  the  manufacture  of  baroswitches 
make  it  unadvisable  to  proceed  into  a more  detailed  implementation  at 
this  time.  The  manufacturer  has  recently  introduced  a "linear"  contact 
board  and  improved  the  calibration  resolution  from  0.5  to  0.2  millibars 
and  is  planning  further  refinements  in  the  near  future.  In  addition,  a 
"continuous"  pressure  sensor  with  advantages  of  weight  and  interpretation 
has  recently  been  developed  and  might  replace  the  baroswitch.  Thus, 
baroswitch  implementation  in  the  dropsonde  is  uncertain  and  if  it  is 
fact  used,  its  performance  should  be  assessed  before  finalizing  the 
resolution  and  accuracy  of  the  calibration  redundancy  eliminator. 
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6.2  SIGNAL  CQNDITIQNER-DECOMMUTATOR  PERFORMANCE 

The  signal  condi tioner-decommutator  in  the  Bendix  Recorder- 
Analyzer  was  designed  to  operate  with  asymmetrical  signals  of  constant 
pulse  width  and  variable  pulse  repetition  rate.  A design  change  to 
symmetrical  signal  (pulses  of  50%  duty  factor)  with  variable  pulse 
repetition  rate  was  being  considered.  The  signal  conditioner-decommutator 
was  operated  with  a symmetrical  signal  to  obtain  data  illustrating  its 
operation  and  which  could  be  used  as  a guide  by  the  manufacturer  in 
making  a design  change.  That  investigation  and  its  results  are  described 
here. 

6.2.1  Introduction  and  Purpose 

The  Bendix  signal  conditioner  and  decommutator  are  designed 
to  operate  with  pulsed  signals  of  variable  duty  factor.  The  objective 
of  this  test  was  to  assess  its  operation  with  symmetrical  signals  (50% 
duty  factor).  The  testing  took  three  runs  showing  significant  differences 
between  "Bendix-produced"  data  and  "reference"  data  produced  by  a 
special  test  setup.  Table  6-1  summarizes  the  salient  setup  features 
for  the  three  runs. 


6.2.2  Equipment  Setup 

Figure  6-2  shows  the  setup  for  the  first  data  run.  This  run 
was  taken  on  13  January  1978  at  3:40  P.M. 

Figure  6-3  shows  the  setup  for  the  second  data  run.  This  run 
was  taken  on  16  January  1978  at  10:15  A.M. 

Figure  6-4  shows  the  setup  for  the  third  data  run.  This  run 
was  taken  on  16  January  1978  at  2:30  P.M. 

6.2.3  Data  Interpretation 

The  data  resulting  from  the  three  runs  can  be  found  in  Appendixes 
J,  K,  and  L.  These  data  can  be  interpreted  in  the  following  way.  There  are 


6-7 


Table  6-1.  Summary  of  Run  Conditions^ 


FIRST  RUN 

SECOND  RUN 

THIRD  RUN 

Time,  Date 

3:40  P.M.,  1/13/78 

10:15  A.M. , 1/16/8 

2:30  P.M. , 1/16/78 

Signal  to  HP5328A 
From 

Honeywel 1 Repro 

Bendix  Conditioner 
(from  point  "F") 

SKL  Low  Pass  (2KHz 
cutoff) 

Signal  Arming 
HP5328A  From 

Bendix  60m-sec 
(from  point  "E") 

Bendix  60m-sec 
(from  point  "E") 

Special  Purpose 

NADC  Assembly  pro- 
cessing HP  Marker 
Output 

Observed  Trigger 
Level  for  Bendix 
Condi tioner 

'1.6  Volts  2 

'1.6  Volts  2 

Not  Applicable 

HP  Trigger  Level 

0 Volts  (+  slope) 

+1  Volt  (+  slope) 

0 Volts  (+  slope) 

I Notes:  1.  For  more  complete  information  of  the  three  setups,  see  the  diagrams 

in  Section  2. 

12.  Approximately  1.6  volts  observed  with  Tektronix  7633  set  to  2 volts 

per  division;  later,  1.2  volts  was  observed  with  1 volt  per  division. 

I 
I 
I 
I 
I 
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HONEYWELL 
REPRO.  4 


BENDIX 


60  M-SEC  STROBE 


CHANNEL  A INPUTS  CHANNEL  B 
+ SLOPE  + SLOPE 

0 VOLTS  1 VOLT 

HEWLETT-PACKARD 
COUNTER  5328A 

MARKER  A OUTPUT 


SIGNAL  CONDITIONER  |r 

_ _j' 


Li 


SPECIAL  PURPOSE 
NADC  ASSEMBLY 


FREQUENCY - 
TO-VOLTAGE 
ANALOG 


TEKTRONIX 

OSCILLOSCOPE 

7633 

AND 

, C30  CAMERA  „ 


Figure  g_2  Setup  of  run  at  3:40  PM,  13  January  1978. 
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HONEYWELL 
REPRO.  ^ 


J3  INPUT 

BENDIX 


60  M SEC 
STROBE 


CONDITIONED 
;EC  SIGNAL 
□ c OUT 


TEKTRONIX 

OSCILLOSCOPE 

7633 

AND 

C30  CAMERA 


CHANNEL  A - INPUTS  - CHANNEL  B 
* SLOPE 
1 VOLT 

HEWLETT-PACKARD 
COUNTER  5328A 


TEKTRONIX 

4051 

PRINTER 

PROCESSOR 

COUNTER  GATE 


MARKER  A OUTPUT 


SIGNAL  CONDITIONER j 


| 

I 

I 


SPECIAL  PURPOSE 
NADC  ASSEMBLY 


FREQUENCY- 
TO  VOLTAGE 
ANALOG 


TEKTRONIX 

OSCILLOSCOPE 

453 


Figure  6-3  Setup  of  run  at  10:15  AM,  16  January  1978. 
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HONEYWELL 
REPRO.  4 


SKL  302 
LOW  PASS 
FILTER  ' 
2 KHZ 
CUTOFF 


TEKTRONIX 

OSCILLOSCOPE 

7633 

1 AND  2 
C30  CAMERA 


CHANNEL  A INPUTS  CHANNEL  B 


HEWLETT-PACKARD 
COUNTER  5328A 

COUNTER  GATE 


TEKTRONIX 

4051 

PROCESSOR 


PRINTER 


marker  a output 


SIGNAL  CONDITIONER 

I 

, ! 

J | FREQUENCY- 

TO-VOLTAGE 

SPECIAL  PURPOSE 

[ ANALOG 

NADC  ASSEMBLY 

l_ 

STROBE 

OUTPUT  (ALL) 

TEKTRONIX 

OSCILLOSCOPE 

453 

1 2 


Figure  6-4  Setup  of  run  started  at  2:30  PM,  16  January  1978. 
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four  words  per  line,  each  word  containing  two  period  samples  separated  by 

a decimal  point.  The  sample  to  the  left  of  the  decimal  point  (integer 

-8 

portion  of  word)  is  in  units  of  10  seconds.  To  obtain  units  of  seconds, 

O 

divide  by  10' . The  sample  to  the  right  of  the  decimal  point  (decimal 
portion)  is  in  units  of  10  seconds.  To  obtain  units  of  seconds,  divide 
by  10  . For  example,  in  column  one  of  row  one  in  the  data  from  Appendix 
J,  the  word  is  "51506.079014,"  where  51506.  is  .00051506  seconds  and 
.079014  is  .00079014  seconds.  Note  that  a period  of  .00051506  seconds 
corresponds  to  a frequency  of  1942  Hertz  which  is  in  the  reference 
frequency  range. 

The  data  (Appendix  L)  resulting  from  the  third  run  were  confirmed 
by  oscillographic  examination  to  be  a good  representation  of  the  signal 
from  the  balloonsonde  and  is  considered  a satisfactory  reference  for 
evaluating  the  Bendix-produced  data.  The  discrepancies  between  the  data 
from  the  third  run  (Appendix  L)  and  the  data  from  the  first  (Appendix  J) 
and  second  (Appendix  K)  runs  are  possibly  explained  in  part  by  the  photo- 
graphs in  Section  6.2.4,  which  show  some  of  the  cycle  marking  conditions 
observed  during  the  runs. 

6.2.4  Monitoring  and  Photographing  of  Signal  Conditions 

During  the  three  data  runs  and  in  trial  runs  made  before  any 
data  were  recorded,  signals  were  carefully  monitored  via  a iektronics 
oscilloscope  model  7633  equipped  with  a Tektronics  camera  model  C30. 

This  section  contains  photographs  taken  of  some  of  the  pecul iari ties 
wnich  were  found  during  the  first  and  second  runs. 

There  should  have  been  a lOOu-sec  pulse  triggered  by  a positive 
slope  at  1 volt.  The  triggered  pulse  was  observed  at  1.6  volts  in  the 
first  run  and  at  1.2  volts  in  the  second  run.  Other  types  of  observed 
peculiarities  were  pulses  that  lasted  longer  than  lOOu-sec  and  which 
triggered  below  the  normal  level.  Other  cases  consisted  of  combinations 
of  both  of  these. 

During  the  third  run,  in  which  the  Bendix  unit  was  omitted, 
no  discrepancies  were  observed  in  the  production  of  conditioned  signals. 
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No.  J_  Wallops  No.  3 1933  ^ No'  2 Gallops  No.  3 1937 


780113  0907  MCW  780113  0918  MCW/PK 


No.  3 Wallops  No.  3 1940 


. No.  4 Wallops  No.  3 1951 


Photographs  taken  during  trial  run  on  13  January  1978 


780113  0900  MCW 


780113  0904  MCW 


780113  0939  MCW/PK 


780113  1015  MCW/PK 


yM 

h r [—•>»«  *-i 

; . * • » : 
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r ■■  d 
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No.  7 WALLOPS  No.  3 1917 


No.  8 WALLOPS  No.  3 1953 


Photographs  taken  during  trial  run  on  13  January  1978 


■ 


"PRE-TWEEK" 


The  above  photograph  was  taken  before  the  oscillator  was  "tweeked"  tc 
fr9e_run  at  the  sonde  sample  rate.  The  photographs  below  were  taken  after 
"tweeking"  was  accomplished. 


780113  1445  MCW/PK 


780113  1451  MCW/PK 


1943 


1949 


6-15 


780113  1550  MCW/PK 


780113  1543  MCW/PK 


No.  1 WALLOPS  No.  3 1909:42  No.  2 WALLOPS  No.  3 19:17:33 


No.  1 1909:14  No.  2 1915:41 

The  above  photographs  were  taken  during  the  first  data  run.  The  photo- 
graphs below  were  taken  during  the  second  data  run. 


780116  10:17  MCW/PK 


780116  10:26  MCW/PK 


The  photographs  are  annotated  such  that  the  upper  border  con- 


tains the  date  and  time  of  exposure  and  the  lower  right  border  contains 
the  approximate  time  from  the  tape. 

6.3  DATA  SMOOTHING  AND  REDUCTION 

A short  investigation  was  made  into  the  selection  of  significant 
period  ratios  for  storage  in  the  reduced  data  file.  It  has  shown  that 
the  selected  samples  are,  in  general , distorted  by  noise  somewhat  more 
than  the  unselected  samples.  The  investigation  showed  that  three-point 
averaging  would  sufficiently  reduce  the  noise  content  of  the  noisiest 
values  so  that  the  selected  values  would  be  considerably  less  noisy. 

Another  short  investigation  into  smoothing  and  reduction  tech- 
niques has  suggested  that  the  data  might  be  smoothed  and  reduced  at  the 
same  time  by  a series  of  data  fittings  by  linear  regression  with  a 
series  of  simultaneous  equation  solutions  to  determine  the  "significant" 
values  at  which  trends  change.  While  this  technique  shows  promise  of 
achieving  good  results  in  both  the  smoothing  and  the  data  reduction, 
it  suffers  from  the  disadvantage  that  it  would  probably  require  con- 
siderably more  processing  power  to  operate  in  near  realtime.  Also, 
there  are  numerous  ways  of  implementing  the  linear  regression  technique, 
requiring  somewhat  more  effort  for  its  implementation. 

As  a result  of  the  short  investigations,  it  has  been  concluded 
that  three-point  averaging  will  significantly  reduce  noise  with  little 
effort  required  for  implementation  and  that  linear  regression  will  pro- 
vide more  noise  reduction  with  somewhat  more  effort  for  implementation. 

Before  it  is  clear  whether  either  of  these  techniques  should 
be  used,  the  effects  of  noise  should  be  evaluated. 
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6.4  HUMIDITY  CALCULATION 

A new  algorithm,  3. 3. 2(2),  determines  relative  humidity  from  the 
humidity  element's  resistance  ratio  and  air  temperature.  It  uses  an 
equation  to  replace  the  current  common  method  of  calculating  humidity, 
that  is,  linear  interpolation  between  data  points  that  were  determined 
under  laboratory  conditions.  This  algorithm,  in  equation  form,  will  elim- 
inate the  noise  produced  by  interpolation.  The  equation  has  been  adapted 
to  calculation  of  humidity  in  the  breadboard  analyzer  and  is  described  in 
paragraph  3.3.2. 

Figure  6-5  contains  graphs  of  percent  relative  humidity  vs. 
resistance  ratio  as  described  by  the  equation  (continuous  curve), 
overlaid  with  the  individual  characteristic  data  points  obtained 
from  characteristic  data  sheet  of  the  humidity  element.  The  plots  are  on 
a semi- logari thmic  scale  and  depict  temperatures  of  -40,  0,  25,  and  40 
degrees  Celsius  respectively.  Note  that  the  greatest  departure  of  the 
curves  from  the  data  points  occurs  where  the  temperature  is  -40°C  and  the 
resistance  ratios  are  less  than  one.  This  deviation  is  of  no  great  concern 
because  in  regions  of  low  temperature  and  low  relative  humidity,  the  absolute 
humidity  is  so  small  that  the  absolute  error  is  minimal.  Also,  no  attempt 
was  made  to  fit  the  local  irregularities  ("wiggles")  in  the  data  because 
these  are  known  to  contain  small  departures  from  the  hmiidity  element's 
actual  behavior.  In  view  of  the  facts  that  the  equation  fits  the  data 
within  the  bounds  exhibited  by  the  "wiggles,"  and  that  new  data  are  expected 
to  be  devoid  of  such  irregularities,  there  is  no  object  in  trying  to  make 
the  equation  fit  the  data  any  better  than  it  already  does. 

The  algorithm  was  determined  by  curve  fitting  with  the  aid  of 
the  Tektronix  4051  computer  system.  A program  was  devised  that  will  plot 
a desired  function  and  then  compare  it  with  any  of  the  characteristic  curves 
pertaining  to  a given  temperature.  This  program's  listing  can  be  found  in 
Figure  6-6.  Note  that  the  data  statements  contain  the  characteristic  data 
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50000  INI T 

50010  REM-TEMPERATURE  IN  DEGREES  C. 

50020  DATA  0 

50030  REM-  NUMBER  OF  DATA  POINTS. 

30040  DATA  20 

50050  DATA  0 . 52 * 10 * 0 . 62 * 15 * 0 . 74 * 20 * 0 . 32 * 25 * 0 . 9 . 30 

50060  DATA  1 * 33 * 1 . 1 * 35 * 1 . 3 . 40 * 1 . 63 * 45 * 2 . 23 * 50 * 3 . 1 * 55 * 4 . 2 * 60 

50070  DATA  6 . 5 » 65 * 1 0 . 2 * 70 * 1 7 * 75 » 2? * 80 * 29 * 80 * 29 * 80 * 2? * SO . 2? * SO 

50080  DATA  0 . 55 * 10 * 0 . 65 * 15 * 0 . 78 * 20 * 0 . 85 * 25 * 0 . ?2 * 30 

50090  DATA  1 * 33  * 1 . 06 * 35 * 1 . 23 * 40 * 1 . 4 * 45 * 1 . 75 > 50 * 2 . 35 » 55 * 3 . 1 * 60 

50100  DATA  4. 1 *65*6*70*9.3*75*  17*80*26*85*44*  90*86*95*  170. 100 

50110  DATA  0.585*10*0.695*15*0.8*20*0.875*25*0.94*30 

50120  DATA  1*33*1.05*35*1.175*40*1.32*45*1.58*50*2*55*2.5*60 

50130  DATA  3.25*65*4.5*70*7.3*75*12*80*18.5*85*29*90*60*95*140*100 

50140  DATA  0.61*10*0.72*15*0.82*20*0.89*25*0.95*30 

50150  DATA  1 * 33  * 1 . 04 » 35  * 1 . 1 5 * 40  * 1 . 27  * 45  * 1 . 47  * 50  * 1 . 95  * 55  * 2 . 3 * 60 

50160  DATA  3*65*4*70*6.4*75*10*80*16*85*23*90*40*95*126*100 

50170  RESTORE  50020 

50180  READ  T 

50190  PAGE 

50200  PRINT  ’ENTER  OPERATOR-DATE-TIME-  * * 

50210  INPUT  Z$ 

50220  PAGE 
50230  MOVE  15*95 
50240  PRINT  Z$ 

50250  WINDOW  -1*3*0*100 
50260  VIEWPORT  10*125*15*100 
50270  AXIS  1 * 10  * -1  * 0 
50280  MOVE  -1*99 
50290  PRINT  ’888100* 

50300  MOVE  -1*89 
50310  PRINT  ’8890’ 

50320  MOVE  -1*79 
50330  PRINT  ’8880’ 

50340  MOVE  -1*69 
50350  PRINT  ’8870’ 

50360  MOVE  -1*59 
50370  PRINT  *8860’ 

50380  MOVE  -1*49 
50390  PRINT  ’8850* 

50400  MOVE  -1*39 
50410  PRINT  ’8840* 

50420  MOVE  -1*29 
50430  PRINT  ’8830* 

50440  MOVE  -1*19 
50450  PRINT  ’8820* 

50460  MOVE  -1*9 
50470  PRINT  ’8810* 

50480  MOVE  -1*0 
50490  PRINT  ’80’ 

50500  MOVE  -1*100 


Figure  6-6.  Program  Listing  for  Humidity  Curve-Fitting  Aid  (Page  1 of  3) 
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50510  PRINT  HJRHJEHJLUJAHJTfclJIHJVHJE * 

50520  MOVE  -1,50 

50530  PRINT  'UHtiUdJ  HJHH JUHJMfclJIfclJDd JldJTHJY * 

50540  MOVE  -1,0 
50550  PRINT  'JEM* 

50560  MOVE  0,0 
50570  PRINT  *J1* 

50580  MOVE  1,0 
50590  PRINT  *JH10* 

50600  MOVE  2,0 
50610  PRINT  ’JlddlOO* 

50620  MOVE  3,0 
50630  PRINT  •JdtdHlOOO' 

50640  MOVE  -1,0 

50650  PRINT  *JJJ  HUMIDITY  ELEMENT  RESISTANCE  RATIO* 

50660  MOVE  LGT ( 1 ) ,33 
50670  PRINT  841 : * * , It 

50680  PRINT  841 J 

50690  PRINT  841  :*  *,* CALCULATED  HUMIDITIES  FOR  TEMP=  * > T 
50700  PRINT  841  .* 

50710  PRINT  841 J*  *,* RATIO *,* ZRH * 

50720  R=0 . 45 
50730  GOSUB  51160 
50740  H=33-H9 
50750  X=LGT ( R ) 

50760  MOVE  X,H 

50770  FOR  N9=0  TO  1000 

50780  R=R*1.1 

50790  IF  R<1  THEN  50820 

50800  GOSUB  51200 

50810  GO  TO  50850 

50820  GOSUB  51160 

50830  H=33-H9 

50840  GO  TO  50860 

50850  H=33+H9 

50860  PRINT  841.**  * ,R,H 

50870  IF  H>103  THEN  50920 

50880  X=LGT(R) 

50890  DRAW  X,H 

50900  NEXT  N9 

50910  RESTORE  50040 

50920  READ  D 

50930  IF  T = 25  THEN  51010 

50940  GO  TO  T/40+2  OF  50970,50990,51030 

50950  LIST  50930,50940 

50960  STOP 

50970  RESTORE  50050 

50980  GO  TO  51050 

50990  RESTORE  50080 

51000  GO  TO  51050 

51010  RESTORE  50110 
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51020  GO  TO  51050 
51030  RESTORE  50140 
51040  GO  TO  51050 
51050  FOR  1=1  TO  D 
51060  READ  R1.H1 
51070  L=LGT (R1 > 

51080  MOVE  L * H 1 
51090  DRAW  L » HI 
51100  NEXT  I 

51110  PRINT  •T=,?T;1  DEGREES  C.' 

51120  LIST  @41 151160*51260 
51130  PRINT  04 1.* 

51140  PRINT  @41 : ’ ’ fZi 

51150  END 

51160  REM-  ENTRY  POINT  FOR  R<1 . 

51170  B = 20 

51180  R 9 = 1 / R 

51190  GO  TO  51230 

51200  REM-  ENTRY  POINT  FOR  R=>1. 

51210  B= 1 5 
51220  R9=R 
51230  A=0.02*T+3.2 

51240  D»0.9-<0.001425*T+0.25)*LGT(LGT(R9>+1 ) ~0 . 333333333333 
51250  H9=A*L0G(R9''B>~D 
51260  RETURN 


points  for  the  humidity  element.  To  use  the  curve  fitting  program,  enter 
the  desired  temperature  in  data  statement  50020,  and  adjust  the  equation 
as  desired  in  subroutine  51160. 


6.5  SYNCHRONOUS  DECOMMUTATION 

The  Breadboard  Dropsonde-MRS  Analyzer  currently  receives  its 
input  data  from  a breadboard  decormutator  that  produces  a cycle  sampling 
sequence  of  four  strobe  pulses  each  time  a reference  sample  appears. 

Experience  in  processing  noisy  data  from  soundings  (both  drop  and  MRS)  has 
shown  that  noise  can  cause  faulty  decommutation  of  the  data. 

Various  means  of  improving  the  breadboard's  performance  with 
noisy  signals  have  been  investigated  and  found  helpful.  They  include 
pass-band  filtering,  signal  conditioning  based  on  slope-level  triggering 
and  selection  of  low  pass,  high  pass  and  triggering  values  based  on  each 
drop's  observed  signal  and  noise  characteristic.  Although  these  pre- 
cautions provide  marked  improvement  in  the  decommutator's  operation,  they 
lengthen  considerably  the  time  required  to  analyze  data  from  a sounding. 

In  addition,  even  with  these  precautions  and  a fairly  noise-free  signal, 
occasional  cycle  deconmutation  failures  still  occur. 

The  decommutation  failures,  when  observed  with  multi-channel 
oscilloscope,  appeared  to  be  associated  with  a "noise-spike"  that  occurred 
during  the  reference  cycle  and  caused  double  appearance  and/or  jittering 
of  the  reference  strobes.  The  reference  strobe  malfunctions  were  also 
frequently  accompanied  by  loss  of  temperature  sample. 

This  radical  behavior  of  the  decommutator  thus  appears  to  be 
caused  by  a noise  spike  in  a single  reference  sample  and  could  probably 
be  improved  dramatically  by  generating  the  sample  strobes  from  a fly- 
wheel oscillator.  Such  a synchronous  decommutator  is  expected  to  maintain 
synchronization  with  the  signal  even  if  the  signal  is  interrupted  from  several 
cycles. 

TO 
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A preliminary  investigation  has  suggested  a number  of  useful 
techniques  for  implementing  a fly-wheel  oscillator  for  synchronous  decom- 
mutation. Among  them  are  TV  type  of  raster  scanning  oscillators,  phase- 
locked  loop,  bias-controlled  RC  oscillators,  digitized  oscillators,  sync- 
gated oscillators  and  S/N-adaptive  integration  interval. 

6.6  OPERATIONAL  OUTPUT 

Experience  gained  during  the  contract  has  provided  some  insight 
into  output  characteristics  that  would  be  effective  in  the  operational 
environment. 

First,  it  is  important  that  a real-time  output  provide  a 
basis  for  evaluating  the  sounding.  If  a sounding  is  giving  ncnvalid  results, 
it  is  important  that  it  be  known  soon  so  that  a new  sounding  can  be  started. 
This  could  be  accomplished  by  occasional  display  of  temperature,  humidity 
and  pressure  during  sounding. 

Second,  it  is  important  that  the  sounding  provide  a near  real- 
time indication  of  the  refraction  layers  that  are  present.  This  could  be 
done  by  indicating  the  deficit,  thickness  and  altitude  for  each  layer 
considered  in  excess  of  marginal  exploitability.  If  this  display  shows  a 
significant  departure  from  expected  conditions,  the  sounding  crew  can 
take  immediate  appropriate  action  with  respect  to  forwarding  the  informa- 
tion to  the  platform  commander,  to  E/WEPS,  etc.  Printout  of  this  infor- 
mation is  desirable  to  expedite  forwarding  and  utilization  of  the  information. 

Third,  it  is  important  that  a post-sounding  refractivity  profile 
be  transferred  into  E/WEPS  as  soon  as  possible.  An  electrical  transfer 
between  I/O  ports  of  the  recorder-analyzer  and  E/WEPS  using  ASCII  is  con- 
templated, based  on  preliminary  agreement  with  E/WEPS  development  staff 
at  Navy  Ocean  Systems  Center  (NOSC). 
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Fourth,  fifth  and  sixth;  the  sounding  results  are  needed 
by  the  local  Navy  Meteorological  Unit  (NMU)  for  updating  its  weather 
information,  by  FNWC  for  inclusion  in  its  predictions  and  data  dis- 
semination services  and  by  archives  for  research  and  development 
activities.  Ballistic  winds  can  also  be  calculated  when  the  wind  option  is  in- 
cluded. The  Navy  Environmental  Display  Station  appears  to  be  the  most  logical 
means  of  passing  the  sounding  results  to  these  three  users.  An  ASCII  transfer  to 
NEDS  of  significant  and  mandatory  levels  of  temperature,  pressure  and  dew  point 
depression  in  WMO  format  appears  the  best  way  of  accomplishing  these  three  out- 
puts, since  NEDS  has  the  communication  facilities  for  all  three  users. 

6.7  ANALYSIS  ALGORITHM  IMPROVEMENTS 


6.7.1  Smoothing  of  Calculated  M-Unit  Values 

An  adaptation  of  significant  values  selection  is  seen  as  a 
good  means  of  representing  the  M-units  profile  in  a noise-smoothed  manner. 
It  is  believed  that  the  noise  excursions  can  be  smoothed  to  obtain  a 
virtually  zero  false  alarm  rate  since  the  "minimum  exploitable  duct" 
has  been  defined  as  having  fairly  large  dimensions.  Thus  the  refractive 
layers  selector  can  look  for  fairly  large  effects  that  are  not  likely 
to  be  masked  by  noise.  Such  a refractive  layer  selector  could  be 
adapted  for  operation  with  all  of  the  outputs  described  in  paragraph 
6.6. 

6.7.2  Classification  of  Refractivity  Gradients 

Some  research  into  this  classification  activity  is  needed. 

It  is  not  clear  who  needs  this  information,  or  why.  There  is  a great 
deal  of  latitude  on  interpretation  of  how  the  classification  should  be 
performed,  but  these  classifications,  by  themselves,  don't  appear  very 
useful.  If  the  classification  processing  can  be  eliminated,  it  would 
result  in  a significant  simplification  of  the  analyzer. 
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6.7.3 


Pressure-Based  Analysis 

The  introduction  of  CAPS  provides  an  essentially  continuous 
record  of  atmospheric  measurements  which  suggests  that  pressure  or  some 
function  of  pressure,  instead  of  time,  might  be  used  as  the  "measuring 
stick"  during  analysis.  For  example,  data  smoothing  and  reduction  might 
be  accomplished  by  two  analyses  instead  of  three:  temperature  vs. 
pressure  and  humidity  vs.  pressure  instead  of  temperature  vs.  time  and 
pressure  vs.  time  and  humidity  vs.  time.  Elimination  of  time  would  also 
reduce  the  volume  of  data  to  be  stored. 

6.7.4  Humidity  Calculations  Improvement 

Improved  humidity  elements  are  expected  to  become  available 
in  the  near  future.  They  are  expected  to  have  more  accuracy  and  repeat- 
ability and  less  hysteresis  than  the  present  elements.  Also,  improved 
data  for  the  present  elements  is  expected  soon.  It  is  believed  the 
new  data  will  provide  a better  fit  to  the  element's  actual  performance. 

It  is  expected  that  the  humidity  equation's  coefficients  can  be  adjusted, 
if  appropriate,  to  give  a good  fit  of  the  new  data. 

6.7.5  Improvement  of  e$  Calculation 

It  is  believed,  based  on  short  investigation,  that  the  calcu- 
lation of  saturated  water  vapor  pressure,  e_,  could  be  simplified  con- 
siderably while  still  preserving  accuracy  through  about  4 digits. 

6.7.6  Calculation  of  CAPS-Measured  Pressure 

The  CAPS  pressure  equation  was  produced  using  classical  curve 
fitting  techniques  of  general  utility.  Curve-fitting  experience  has 
shown  that  a customized  approach  for  a specific  type  of  device  usually 
provides  a simpler  expression  which  can  be  calculated  more  rapidly  in 
a computer.  It  is  expected  that  the  pressure  equation  could  be  simplified 
significantly  by  a customized  curve  fitting  approach. 
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6.8.1  Humidity  Accuracy  Effects 

Humidity  plays  a large  role  in  determining  refractivity  of 
the  air.  However,  humidity  is  the  parameter  that  is  measured  with  least 
accuracy.  Improvements  in  humidity  accuracy  are  expected  to  make  signif- 
icant improvements  in  the  ability  to  analyze  refractivity  effects.  Because 
the  humidity  elements'  output  can  legitimately  change  very  rapidly,  it  is 
more  difficult  to  discriminate  against  noise  than  it  is  with  other  sensors. 
Investigation  of  actual  sounding  data  has  shown  that  special  measures 
must  be  taken  in  the  case  of  humidity  elements.  Rate  discrimination  has 
been  applied  in  addition  to  value  discrimination.  Further  improvement 
is  probably  possible  and  may  be  desirable. 

6.8.2  Surface  Measurements 

In  the  case  of  a refractivity  layer  near  the  surface,  it  is 
not  possible  to  know  whether  the  layer's  effect  extends  to  the  surface 
unless  the  surface  values  and  some  intermediate  values  are  known. 

Thus  the  measurement  of  surface  values  takes  on  a special  value.  It 
is  particularly  difficult  in  the  case  of  a dropsonde to  know  if  the  end 
of  the  received  data  is  actually  the  time  of  splash.  If  there  are  several 
seconds  missed,  an  important  refractivity  layer  could  be  missed  as  well. 

But  the  problem  is  not  limited  to  dropsondes.  If  a balloon- 
sonde  is  launched  from  a distance  of  40  to  60  feet  above  water,  it  will 
also  be  difficult  to  determine  whether  or  not  a near-surface  effect 
actually  extends  down  to  the  surface. 

6.8.3  Wet  Sensors 

Wetting  of  sensors  by  rain  or  fine  droplets  can  cause  a 
problem  since  errors  in  temperature  and  humidity  measurement  can  occur. 

Some  attention  has  been  given  to  this  subject  and  more  understanding 
is  needed . 

fA 
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7.  CONCLUSIONS  AND  RECOMMENDATIONS 


Use  of  the  analyzer  for  processing  of  sounding  data  and  for  evalua- 
tion of  operational  equipment  has  identified  a number  of  problems.  In  general, 
the  analysis-associated  problems  fall  into  two  major  categories,  being  caused 
by  noise  or  processing  load,  as  discussed  in  Sections  7.1  and  7.2. 


Some  problems  not  affected  by  analysis,  but  meriting  attention. 


are  identified  in  Section  7.3. 


ANALYSIS  TECHNIQUES  FOR  NOISE-EFFECTS  REDUCTION 


A number  of  noise  effects  have  been  observed,  including  loss  of 
decommutator  synchronization,  period  measurement  errors,  selection  of  noisy 
period-ratios  as  "significant,”  degraded  noise  discrimination  in  gap  processor 
and  small  random-appearing  variations  in  the  output  plots  and  reports. 


Some  of  the  possible  solutions  for  these  problems  are  attractive 
because  they  promise  effectiveness  by  improving  performance  substantially  with 
little  cost.  They  are  enumerated  as  recommendations  in  the  paragraphs  that 


follow. 


7.1.1 


Noise-Rejection  Filterinc 


Filtering  is  recommended  for  rejection  of  noise  outside  the  pass- 
bands  occupied  by  the  reference  and  data  signals.  To  improve  the  marking  of 
cycles  for  period  measurement  and  thus  reap  further  benefits  from  filtering, 
a symmetrical  waveshape  is  recommended  to  reduce  harmonic  content  and  zero 
cross-over  detection  is  recommended  to  reduce  extraneous  cycle  marks. 


. 
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7.1.2  Improvement  of  Deconwutation  Synchronization 

An  improved  flywheel  oscillator  is  recommended  for  driving  the 
decommutator,  and  improved  triggering  is  recommended  for  maintaining  oscillator 
synchronization  through  short  periods  of  signal  interruption.  Pattern  correla- 
tion with  integration  over  a number  of  sample  intervals  is  recommended  for 
trigger  improvement. 

7.1.3  Significant  Ratios  Noise  Smoothing 

Short-interval  averaging,  in  the  order  of  three  to  six  points,  is 
recommended  as  a means  of  reducing  the  effects  of  noise  in  the  selection  of 
significant  ratios.  Rejection  of  noisy  (large  deviation)  samples  before 
averaging  is  recommended. 

7.1.4  Gap-Processor  Rate-Based  Noise  Discrimination 

Rate-based  noise  discrimination  is  recommended  for  the  gap  processor 
to  permit  restoration  of  signals  that  have  potential  for  change  in  excess  of 
noise  during  a signal  interruption. 

7.1.5  Interpolative  Noise  Reduction 

Calculation  of  humidity  by  equation  is  recommended  instead  of  by 
table  lookup  with  interpolation.  The  equation  method  of  calculation  virtually 
eliminates  errors  caused  by  interpolation.  These  errors  can  have  a noise-like 
appearance  in  the  analysis  output. 

7.1.6  Adjustment  of  Report  Resolution  to  Exploitation  Threshold 

Adjustment  of  sampling  resolution  in  reporting  is  recommended  to 

achieve  close  correspondence  to  recently  identified  thresholds  for  exploitation 
of  refractive  effects.  This  will  increase  the  interval  between  reported 
samples  and  cause  a noise  reduction  relative  to  the  refraction  change  in  the 
increased  intervals,  without  compromising  the  ability  to  report  exploitable 
refractive  effects. 
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7.2  ANALYSIS  TECHNIQUES  FOR  PROCESSING-LOAD  REDUCTION 

The  analyzer's  processing  time  for  a sounding  is  roughly  an  hour 
or  more,  depending  upon  the  drop  length  and  number  of  "significant"  period 
ratios  selected  for  processing.  The  processing  is  slow  because  the  programming 
language  is  BASIC  and  is  interpreted  "on  the  fly"  by  the  Tektronix  4051  computer. 

Although  the  processing  is  slow,  it  is  very  good  for  exploration  of 
processing  simplifications  because  of  its  ease  of  reprogramming.  The  following 
recommendations  are  directed  toward  making  significant  reductions  in  the 
analyzer's  processing  time  and  identifying  simplifications  that  can  be  incor- 
porated in  the  operational  equipment  for  reduction  of  its  processing  load. 

7.2.1  Sample  Count  Reduction 

A reduction  in  the  number  of  samples  to  be  processed  is  recommended 
for  the  reduction  of  processing  load.  For  good  effectiveness,  the  reduction 
should  be  made  early  with  little  processing  required  and  should  be  as  great 
as  possible  without  compromising  the  detectability  of  exploitable  refractive 
effects  or  the  accuracy  needed  for  the  normal  weather  analysis. 

Linear  regression  applied  to  averaged  values  with  trend  change 
detection  is  recommended  as  a candidate  technique  for  development  because  of 
its  excellent  smoothing  characteristics.  Further,  its  application  in  a 
suitably  transformed  data  space  is  recommended  as  a potential  means  of 
achieving  maximum  sample  count  reduction  without  compromising  the  accuracy 
and  with  possible  identification  of  doubtful  and  missing  data.  The  trans- 
formed data  space  could  be  based  on  pressure  as  described  in  Section  6.7.3. 

In  this  method,  the  reduced  samples  would  be  determined  by  simultaneous 
solution  of  the  intersecting  trend  equations. 
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7.2.2 


Sample  Processing-Time  Reduction 

Reduction  of  the  sample  processing-time  by  simplification  of  algorithms 
is  recommended  as  a further  means  of  reducing  the  processing  load.  The  following 
algorithms  are  candidates  for  simplification: 

• Calculation  of  saturated  water  vapor  pressure, 

t Calculation  of  pressure. 

• Calculation  of  dew  point  depression. 

• Calculation  of  layer  thickness. 

7.2.3  Storage  of  Values  Having  Multiple  Application 

Some  values  are  calculated  whenever  needed  to  reduce  the  amount  of 
memory  dedicated  to  data  storage.  The  reduction  of  sample  count  should  make 
some  memory  available  for  storage  of  additional  calculated  data.  Thus,  storage 
of  calculated  data  is  recommended  to  eliminate  the  need  for  recalculation. 

7.2.4  Report  Simplification 

Restructuring  of  the  output  reports  is  recommended  to  reduce  the 
processing  load  associated  with  reporting.  This  restructuring  would  follow 
the  guidelines  in  Section  6.6  of  this  report  and  would  include  new  features  as 
their  need  is  identified. 

The  present  understanding  of  requirements  suggests  that  the  reporting 
load  can  be  reduced  to  considerably  less  than  half  and  that  more  useful 
reports  can  be  obtained,  including,  for  example,  an  index  of  normalized  propaga- 
tion path  curvature  that  would  be  of  immediate  benefit  to  an  air  crew  receiving 
the  report. 

7.2.5  Effectiveness  Investigation 

Although  each  of  the  recommendations  for  reducing  processing  load 


will  improve  performance,  some  will  be  more  effective  than  others.  A pre- 
liminary investigation  is  recommended  to  rank  their  effectiveness  and  establish 
priorities  for  implementation. 
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OTHER  RECOMMENDATIONS 


7.3.1  Baroswitch  Operations 

If  baroswitch  pressure  measurements  are  implemented  in  operational 
soundings,  some  precautions  are  recommended.  "Make-detection"  in  preference 
to  "break-detection"  is  recommended  in  drop  as  well  as  balloon  sounding,  because 
makes  have  been  observed  to  be  "cleaner"  than  breaks.  The  new  linear  type 
of  baroswitch  is  recommended  in  preference  to  the  old  type  for  more  accurate 
measurement  by  make-detection  in  dropsoundings  and  a new  baseline  procedure 
is  recommended  to  accommodate  the  change  from  break-detection  to  make-detection. 

Also,  if  baroswitch  measurements  are  implemented  for  dropsoundings, 
a qualification  program  is  recommended  to  assure  that  the  baroswitch  baseline 
is  being  maintained  through  the  shock  and  accelerations  of  handling  and  launch. 
Finally,  if  baroswitch  is  implemented,  inclusion  of  the  redundancy  eliminator 
is  recommended  to  simplify  calibration. 

7.3.2  Humidity  Measurements 

If  the  new  type  humidity  element  in  development  is  judged  satisfactory 
by  preliminary  tests,  qualification  testing  is  recommended  to  include  evalua- 
tion of  accuracy,  hysteresis  effects,  cycling  effects,  speed  of  response,  and 
adaptability  to  automatic  humidity  calculation. 

7.3.3  Wet  Sensors  Effects 

Short  tests  in  the  laboratory  for  the  purpose  of  establishing  humidity 
rate  limits  have  shown  that  humidity  measurements  are  "super-humid"  when  the 
element  becomes  wet.  This  can  cause  a cloud  to  appear  thicker  than  it  really 
is.  In  addition,  it  is  expected  that  temperature  measurements  will  be  low  due 
to  evaporative  cooling  while  the  thermistor  is  drying.  Temperature  measure- 
ments are  also  likely  to  have  additional  lag  due  to  the  thermal  capacity  of  the 
water  on  the  thermistor. 
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There  is  no  known  way  of  compensating  for  these  wet  sensor  effects. 
Design  efforts  to  prevent  or  restrict  wetting  are  recommended. 

7.3.4  Deferred  Reporting  of  Operational  Soundings 

In  the  case  of  the  airborne  processor,  three  or  four  soundings  might 
be  obtained  in  the  course  of  a mission.  Each  sounding's  last  report  from  the 
processor,  intended  for  surface-based  analysis  operations,  is  recommended  for 
retention  in  the  processor's  memory,  to  permit  quick  access  to  the  data  after 
the  mission  and  without  requiring  reprocessing. 

7.3.5  Near-Surface  Measurements 

The  near-surface  portion  of  the  atmospheric  profiles  is  of  vital 
concern  and  is  subject  to  misinterpretation  if  measured  in  a manner  not 
consistent  with  the  rest  of  the  profile.  Study  of  near-surface  measurement 
techniques  is  recommended  for  both  dropsoundings  and  bal loonsoundings. 

Splash  detection  would  be  a valuable  aid  in  drop  sounding  analysis, 
and  near-surface  (within  roughly  10  feet)  launch  or  simulated  launch  would  be 
a valuable  aid  in  analyzing  soundings  by  the  minirefractionsonde. 
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APPENDIX  A 

ANALYSIS  EXAMPLE  FOR  BAROSWITCH  DROPSONDE 


The  Baroswitch  Dropsonde  program  on  cassette  V was  operated  on 
23  September  1977,  shortly  after  its  completion,  and  its  results  were  given 
immediately  to  NADC  for  examination  and  evaluation.  It  was  used  to  process 
data  from  1976  Test  Drop  No.  1 off  the  Atlantic  City  coast  on  5 August  1976. 
This  appendix  illustrates  the  Baroswitch  Dropsonde  data  processing  opera- 
tions by  presenting  that  drop's  computer-generated  displays  and  printouts 
that  are  peculiar  to  Baroswitch  Dropsonde. 

The  calibration  and  analysis  displays  are  not  shown  here  because 
of  their  similarity  to  those  obtained  with  the  CAPS  Dropsonde  program 
example  illustrated  in  Appendix  B.  The  only  difference  is  the  entry  of 
calibration  data  as  directed  in  detail  by  the  display. 

The  analysis  portion  of  the  processing  is  different  from  the 
CAPS  Dropsonde  only  when  the  pressure  table  is  being  built.  Therefore, 
that  portion  of  the  analysis  is  illustrated  here.  Figure  A-l  shows  the 
display  of  baroswitch  calibration  data  produced  by  the  computer  after  being 
directed  by  the  operator  to  perform  analysis  in  preference  to  calibration 
and  acquisition  and  after  reading  the  calibration  data  from  the  cassette 
file  selected  by  the  operator. 

Figure  A-2  shows  the  computer  printout  of  the  drop's  pressure 
table  obtained  by  look  up  of  pressure  values  in  the  calibration  table  after 
detection  and  identification  of  contact  breaks.  The  tables'  values  are 
composed  of  time  tag  in  deciseconds  in  the  integer  portion  of  each  value 
and  of  pressure  in  dekabars  in  the  decimal  portion  of  each  value. 
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Figure  A-1.  Display  of  Baroswitch  Calibration  Data 
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Figure  A-2.  Pressure  Table  for  1976  Drop  No.  1 
(deciseconds  - dekabars) 
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Figures  A-3  and  A-4  show  the  processing  results  as  graphic  pre- 
sentations of  altitude  profiles  for  temperature  and  humidity  and  for 
refractivity  (N-units)  and  modified  refractivity  (M-units). 


D 


MUM 


tJr 


¥ - 


062397 


APPENDIX  B 

ANALYSIS  EXAMPLE  FOR  CAPS  DROPSONDE 


1 


APPENDIX  B.  ANALYSIS  EXAMPLE  FOR  CAPS  DROPSONDE 

The  calibration  portion  of  the  CAPS  Dropsonde  program  has  been 
used  and  found  operable;  however,  at  the  time  of  preparation  of  this  report, 
there  were  no  data  available  for  acquisition  and  analysis  from  a CAPS  drop- 
sounding. Therefore,  the  CAPS  program  operation  was  demonstrated  by 
analytical  and  simulation  techniques. 

The  four-level  conmutation  and  sampling  rate  of  the  CAPS  dropsonde 
in  the  program  are  the  same  as  for  the  baroswitch  dropsonde.  The  acquisition 
portion  of  the  CAPS  Dropsonde  program  was  taken  from  the  Baroswitch  Dropsonde. 
Since  the  acquisition  program  operates  satisfactorily  for  baroswitch  dropsonde 
and  has  not  been  changed,  it  will  operate  satisfactorily  for  the  identical ly- 
coinmuated  CAPS  Dropsonde. 

The  analysis  portions  of  the  program  were  demonstrated  to  be  opera- 
tive by  using  the  San  Diego  minirefraction  sounding  to  simulate  a file  of 
packed  raw  data  as  an  input  source  for  the  CAPS  Dropsonde  analysis.  The  CAPS 
dropsonde  analysis  outputs  were  virtually  identical  to  those  obtained  from 
the  San  Diego  analysis:  they  agreed  within  the  limits  expected  due  to  dif- 
ferences in  data  acquisition. 

The  simulated  file  of  packed  data  was  produced  by  using  the  follow- 
ing techniques  combined  in  a single  “data  acquisition"  run:  the  tape  of 
recorded  data  (receiver's  demodulated  output)  was  run  backward  instead  of 
forward  to  simulate  "descent"  instead  of  ascent;  the  spatial  sampling  density 
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was  "reduced"  by  accepting  only  every  third  sample  to  simulate  a "descent" 
rate  three  times  as  great  as  the  ascent  rate;  the  commutation  sequence 
reversal  caused  by  backward  play  of  tape  was  also  corrected  by  the  selection 
of  every  third  sample. 

The  computer-produced  printout  from  the  simulation  and  analysis 
run  of  31  May  1978  is  shown  in  Figure  B-l . The  CRT-displayed  graphic  outputs 
were  found  by  comparison  to  be  identical  to  those  shown  in  the  figures  of 
Appendix  C. 
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APPENDIX  C.  ANALYSIS  EXAMPLE  FOR  MINIREFRACTIONSONDE  (MRS) 


The  operation  of  the  Minirefractionsonde  program  was  demonstrated 
by  using  the  magnetic  tape-reproduced  output  signal  from  the  receiver  in 
the  San  Diego  test  of  2 May  1978  using  MRS  #8.  The  CRT-displayed  plots  of 
temperature,  humidity,  refractivity  and  modified  refractivity  (M-units) 
are  shown  in  Figures  C-l  and  C-2.  The  computer-produced  printout  from  the 
run  is  shown  in  Figure  C-3. 

This  processing  run  was  limited  to  roughly  the  first  half  of  the 
sounding's  tape  where  data  were  found  satisfactory  for  analysis.  The  analysis 
run  was  performed  at  0925  on  25  May  1978.  Approximately  one  minute  after 
launch  the  processing  was  switched  from  the  Honeywell  receiver  output  to 
the  Microdyne  receiver  output. 
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APPENDIX  D 

PROGRAM  LISTING  FOR  BAROSWITCH  DROPSONDE  ANALYSIS 
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APPENDIX  D.  PROGRAM  1 

LISTING  FOR  BAROSWITCH  DROPSONDE 

ANALYSIS 

Analysis, 

The  four  program 

are  listed  in  the 

files  of  Cassette  V,  Baroswitch  Dropsonde 
four  figures  of  this  appendix  as  tabulated 

below. 

Cassette 

Number 

File  on 
Cassette 

Program  Name 

Figure 

Number 

V 

1 

CALIBRATION  AND  ACQUISITION 

D-l 

V 

2 

REDUCED  DATA  FILE  BUILDER 

D-2 

V 

3 

TEMP,  PRES,  HUM  TABLE  BUILDER 

D-3 

V 

4 

OUTPUT  REPORT  GENERATOR 

D-4 

i 

i 

i 

i 

i 

i 

i 


! 


I 

1100  GO  TO  1000 

110  DELETE  1000*3110 

120  PRINT  * SET  HP  AS  ADDR  3 FOR  INPUT.  ENTER  MINUTES  OF  DATA  ( <10.9  )’ 

1130  INIT 
140  Y =0 
150  DELETE  T 
160  INPUT  M 
| 170  M=320*Mrl60 

I 180  DIM  Z$(2> .T<M> .U$( 17) .T$( 14) 

190  PRINT  @3.32: ‘PF7G1S17.R’ 

200  ON  SRQ  THEN  220 
210  WAIT 
220  FOR  N= 1 TO  M 
230  INPUT  @3.*U* 

240  T$=SEG(U$.7.6) 

250  INPUT  @3JLl$ 

260  U$=SEG  ( U$  » 6 . 7 ) 

270  Tfc  = T $ &U$ 

2 SO  T(N)=VAL(T*) 

290  NEXT  N 
30 0 OFF  SRQ 

310  PRINT  * PRS  OR  WEN  RDY  TO  CK  INPUT’ 

320  INPUT  1% 

330  FOR  N=4  TO  M STEP  4 

340  PRINT  T(N-3>  .T(N-2>  . T(N-l)  ?7<.N> 

350  NEXT  N 

360  PRINT  ’ENTER  1 (REDISPLAY)  OR  2 (CONTINUE)  OR  3 (ABORT)’ 

370  INPUT  Z$ 

330  GO  TO  UAL(ZS)  OF  310.410.390 
390  PRINT  ’RUN  ABORTED’ 

400  END 

410  PRINT  ’PREPARE  TO  STORE  DATA  ON  INTERNAL  TAPE.  ENTER  FILE  NO.’ 

420  INPUT  Y 

430  PRINT  ’WILL  STORE  IN  FILE  ’ ? Y ? • . ENTER  + WEN  RDY’ 

440  INPUT  It 

450  IF  Z$=‘+’  THEN  490 

460  LIST  410 

470  PRINT  ’RUN  ABORTED’ 

480  STOP 

490  FIND  Y 

500  MARK  1.10*(M+1) 

510  FIND  Y 
515  WRITE  M 
520  FOR  N=1  TO  M 
530  WRITE  T ( N ) 

540  NEXT  N 

530  PRINT  ’FILE  WRITTEN’ 

560  E N D 
1000  PAGE 

1005  PRINT  ’ REFRACTION  DROPSONDE  DATA  ANALYZER  --  NADC  AUTD  * 

1010  PRINT 
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1020 

1030 

1040 

2000 

2010 

2020 

2030 

2050 

2060 

2070 

20S0 

2090 

2100 

2110 

2120 

2130 

2140 

2150 

2160 

2170 

2130 

2190 

2200 

2210 

2220 

2230 

2240 

2250 

2260 

2270 

22S0 

2290 

2300 

2310 


PRINT  ’ENTER  PROG  SELECTION  L OR  2.*  l-CALSACG  2-ANALYSIS  — 1 

INPUT  Z 

GO  TO  Z OF  2000 » 3000 
INIT 

PRINT  ' ' • ' CALIBRATION  AND  DATA  ACQUISITION* 

PRINT 

PRINT 

PRINT  “ENTER  DROP  DATE  AND  NUMBER  ( YYMMDD  NN)  — " i 

INPUT  D>NS 

PRINT  ’ENTER  ZULU  LAUNCH  TIME  (MHMMSS)  — *? 

INPUT  TS 

PRINT  ’ENTER  ZULU  SPLASH  TIME  ( HHMMSS ) — *? 

INPUT  US 

PRI  ’ENTER  PRESSURE  ALT  AT  LAUNCH  i PRES  AT  SURFACE  < KFT  > MB  > -- 
INPUT  PI r P2 
PRINT  ’ENTER 
INPUT  S* 

PRINT  ’THERM 
INPUT  R3«T3 
PRINT  ’ENTER 
INPUT  R4 
PRINT  ’ENTER 
INPUT  MS 
PRINT  ’ENTER 
INPUT  0$ 

PRI  ’PREPARE 
PRINT  ‘BLOCK 
INPUT  Z$ 

DIM  B$ ( 1 450 ) 

&$=’  ’ 

FOR  A 1 = 1 TO  1410 
RBYTE  A 
A=255-A 
P9=A 


SONDE  SERIAL  NO.  ( NNNNNN ) — ’; 

LOCKIN:  ENTER  KOHMS  AND  DEG  C (RR.RRR  > TT . T ; -- 

HYGR  LOCKIN  RES  IN  KOHMS  (RR.RRR)  --  ’i 

BARQSUITCH  SERIAL  NUMBER  ( NNNNNNN > — *? 

OPERATOR-DATE  CODE  (ABCYYMMDD)  — ’i 

FOR  PAPER  TAPE  ENTRY:  LOAD  TAPE  WITH  CENTER  OF  START’ 
AT  READ  HEAD?  PRESS  CR  WHEN  READY’ 


2315  GO  TO  2330 
2320  GOSUB  27*0 
2330  IF  A>127  THEN  2390 
2340  IF  A= 1 0 THEN  2290 
2330  AS=CHR(A) 

2360  BS=BSiAS 
2370  NEXT  A1 
2330  60  TO  2410 
2390  A=A- 1 23 
2400  GO  TO  2340 

2410  PRINT  ’READER  SHOULD  STOP  NEAR  CENTER  OF  END  BLOCK.’ 

2420  PRINT  ’ ’>’  ’ t * PRESS  CR  WHEN  READY  TO  CONTINUE.’ 

2430  INPUT  Z* 

2432  PRINT  ’IF  WANT  COPY  OF  THIS  PAGE > ENTER  + (IF  NOT  f ENTER  -)  — ■ 

2434  INPUT  ZS 

2436  IF  Z*<>’+*  THEN  2440 

2433  COPY 
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■ 


1 

PAGE 

PRI  * DATE  ( YYMMDD ) ♦ * » D » " DROP  NO,*rN*i'  SONDE  SER.  .NO.  *?S> 

PRINT 

PRI  * THERM  LOCK-IN:  ";R3;*  KOHNS  AT  1 5 T3  i 1 DEG  C"r*  HYGftJ  * »R4»*K* 
PRINT 

PRINT  * * > ‘ LAUNCH  * * * SPLASH  1 
PRINT  'TIME  (HHMMSS) * »T*»U* 

PRINT  ‘PRES.  ( KFT  > MB ) ’ »P1 »P2 
PRINT 

PRINT  * SAROSUITCH  "JMS;*  CALIBRATION  DATA  FROM  PAPER  TAPE’ 

PRINT  B$; 

PRINT  * ’.0$ 

PRINT  * CK  BARO  SER  NO.  IN  FIRST  LINE  OF  DATA.* 

PRINT  * ENTER  1-TAPE  REENTRY  OR  2-COPY  OR  3-CONTINUE  — Jf 
INPUT  S 

GO  TO  S OF  2230 • 2630 1 2640 
COPY 
PAGE 

PRINT  ‘TAKE  READER  OFF  GPIB  & PUT  OTHER  UNITS  ON  GPIB* 

PRI  "PREPARE  TO  STORE  CAL  DATA.*  NOTE  CASS  NO.  $ LOAD  CASS  IN  4051" 
PRINT  "ENTER  CASSETTE  NO.  AND  ADDRESS  OF  CASSETTE  UNIT  v.NN)  --  ‘i 
INPUT  X 
TLIST 

PRINT  "ENTER  FILE  NO.  FOR  STORING  CAL  DATA  (FF)  --  "? 

INPUT  21 
FIND  Z1 
MARK  lr3000 
FIND  Z1 

PRINT  JSStltrNS.TfcfUSfP  1 ?P2>3'SrT3rR3rR4rM'Sr&"$*Q'S 
PRINT  "CAL  DATA  STORED  IN  FILE  " fZl?"  ON  CASSETTE  " ? X r " "«0$ 

PRINT  "IF  WANT  TO  WRITE  ANOTHER  CAL  DATA  FILE • ENTER  + (-  IF  NOT)" 
INPUT  Z% 

IF  Z *="+"  THEN  2660 
GO  TO  110 
STOP 

REM."  WRITTEN  770302;  DEBUGGED  770303.  MCW 
rem:  subrt  for  CK  of  p?  even  PARITY 
P8=12S 
P7=0 

FOR  P6— 1 TO  S 
IF  P9<P8  THEN  28*0 
P9=P9-P3 
P7=P7+1 
P8=P8/2 
NEXT  P6 

GO  TO  P7  OF  2390 » 291 0 * 2890  r 2910  r 2890  * 2910  > 2890 » 291 0 
PRINT  * P9  FAILED  PARITY  CK" 

STOP 
RETURN 

REM: DEBUGGED  770502  MCW 
STOP 
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L 


d 


REM : DATA  ANALYSIS  STARTS  HERE 
DELETE  100 >2990 

PRINT  'WILL  READ  DATA  ANALYSIS  PROG  FROM  INTERNAL  CASSETTE  FILE  2' 
PRINT  * ENTER  R WEN  RDY  — ' r 

INPUT  3$ 

IF  S*='R'  THEN  3090 
LIST  3020 

PRINT  'RUN  ABORTED* 

STOP 
FIND  2 
APPEND  3110 

REM  J FILED  IN  CASS  5r  FILE  1.  770621  MCW  770629  MCU 
REM : DATA  ANALYSIS  PROG  WILL  BE  APPENDED  HERE 


3000 

3010 

3020 

3030 

3040 

3050 

3060 

3070 

3080 

3090 

3100 

3105 

3110 
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r 


I 


I 

I 

i 


3110  REM J THIS  PROGRAM  (FROM  FILE  2)  ASSIGNS  FILE  NOS.  TO  BE  PROCESSED 

3112  DELETE  2991.310? 

3114  PR  I * LOAD  “SAFE"  DATA  CASSETTE  INTO  CONSOLE.  ENTER  FILE  NOS.  OF J 
3116  PRINT  ’CALIBRATION  AND  DATA  FILES  TO  BE  PROCESSED  (CC  DO)  — '? 

3113  INPUT  Z9.Z8 

3120  REM : READ  CAL  FILE.  CHECK  SUM  OF  PRESSURES.  BUILD  PRESSURE  TABLE 
3122  DELETE  Q 
3124  DIM  0(134) 

3126  0 ( 1 33 ) =0 
3128  FIND  Z9 

3130  INPUT  @33  : D0 » NO » T1 » T2 » F‘l , P2 , SO  , T3 » R3  .»  R4  , BO 
3132  INPUT  @33501 .02. 03.04.05.06 
3134  IF  01=99999  AND  05=0  THEN  3142 

3136  PRINT  * BAROSWITCH  TAPE  HEADER  TEST  FAILED  (SEE  LINE  BELOW)’ 

3138  LIST  3134 
3140  STOP 

3142  PRINT  ’ BAROSW  TAPE  HDRJ  *501?  02 .03,04? 05?06« ’ (CHECK  SER . NO.)’ 

3144  PRINT  ’ENTER  + IF  OK  & RDY  TO  PROCEED  — ’? 

3146  INPUT  S$ 

3143  IF  S*=’+*  THEN  3156 
3150  LIST  3144 

3152  PRINT  ’PROGRAMMED  STOP’ 

3154  STOP 

3156  FOR  1=0  TO  170  STEP  10 
3158  IF  1=0  THEN  3164 

3160  INPUT  @33 10(134) .00.01.02.03.04.05.06.07.08.0? 

3162  GO  TO  3163 

3164  INPUT  @33 :0( 184) .01 ,02.03.04.05.06.07.08.09 
3166  00=0 

3168  IF  Q< 134 ) =1  THEN  3173 

3170  PRINT  ’FAILED  BARO  CONTACT  NO.  TEST  WITH  I=’?I?’  (SEE  TEST  BELOW ) * 

3172  LIST  3160,3168 

3174  PRINT  ’PROGRAMMED  STOP’ 

3176  STOP 

3173  IF  1=0  THEN  3132 
3130  0(1) =00 

3132  0(1+1) =01 
3134  0(1+2) =02 
3136  0(1+3) =03 
3 138  0(1+4) =04 
3190  0(1+5) =05 
3192  0(1+6) =06 
3194  0(1+7) =07 
3196  0(1+3) =08 
3198  0(1+9) =09 

3200  PRINT  USING  3202:1,00,01,02,03,04,05,06,07,08,09 
3202  IMAGE  3D . 5D . D , 5D . D . 5D . D , 5D . D , 5D . D . 5D . D , 5D . D , 5D . D , 5D . D , 4 D . D 
3204  0(183) =0(133) +00+01 +02 +03 +04 +05+ 06 +07 +03 +09 
3206  NEXT  I 

3208  INPUT  @33:0(184), 0(180), 0(131), 0(132) 

3210  IF  0 < 184 ) =180  THEN  3213 
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3212  LIST  3210.3214 
3214  STOP 

3216  INPUT  @33.*0(  ISO) -CM  1S1  ) . 0(132) 

3213  IP  0 ( 180 ) =0  AND  Q(1S1 )=0  THEN  3226 
3220  LIST  3218 . 3224 

3222  PRINT  ■PROGRAMMED  STOP" 

3224  STOP 

3226  PRINT  USING  3228  : 0 ( 1 80 ) » 0 < 131 ) » G ( 182 ) 

3223  IMAGE’ 130‘ . 5D . D . 5D . D . 5D . D 
3230  0 ( 1 S3  > =0 ( 1 S3 ) +0 ( 1 SO ) +0  < 181 ) 

3232  INPUT  333  JO* 

3234  N=0 

3236  N=N  + 1 

3238  Z*=SEG(0*.N»1> 

3240  IF  Z$>*  ‘ AND  THEN  3244 

3242  GO  TO  3236 
3244  0$=SEG  < 0*  » N . 9 ) 

3246  PRINT  ‘CAL  FILE  OPR-DATE  CODE  = ’?0* 

3248  PRINT  1 ’. ’PRESSURE  SUM  = ’ >0(133) i 

3250  IF  0(133) -0(182 >>9999. 9 THEN  3258 
3252  PRINT  ■ (FAILED  CN  SUM  TEST)’ 

3254  LIST  3250  > 3256 
3256  STOP 

3258  PRINT  ’ ( CN  SUM  ON)’ 

3260  PRINT  ’ENTER  TIME  INTERVAL  (SEC.)  FROM  LAUNCH  TO  XMITTER  ON  — ’> 

3262  INPUT  TO 

3264  PRI  ’FOR  AUTOCOPYSPAGE » ENTER  15  AUTOPAGE  ONLY . 2?  NEITHER.  3 — 
3266  INPUT  S9 

3268  GO  TO  S9  OF  3274.3280.3286 
3270  END 

3272  REM  . WRITTEN770415 » LOADED770504  » DEBUGGED770505 . INTEGRATED 770 705  MCW 
3274  REM : START  HERE  FOR  AUTOCOPY  SPACE 
3276  PRINT  332.26:3 

3273  GO  TO  3290 

3230  REM : ST  ART  HERE  FOR  AUTOPAGE 
3232  PRINT  332. 26 J 2 
3234  GO  TO  3290 

3236  REM : START  HERE  FOR  MANUAL  COPYSPAGE 
3283  PRINT  (332.26:0 

3290  REM : READ  S UNPACK  DATA  FROM  FILE 

3292  DIM  A<4) .6(4) .C(4> »D(4) 

3294  RESTORE  3293 
3296  READ  834 : T9 . T3 , T7 . T6 . A . B . C . D 

3293  DATA  0»0»0»1»0»0.0»0»0»0»0.0»0»0»0*0»2.0E— 3.3.0E— O.3.0E-4.1 . 

3300  REM: INITIALIZE  FOR  GETTING  3IG  PER  RATIOS  USING  SIG  LEV  SUBR 
3302  DIM  P ( 3 . 400 ) . S ( 3 . 8 ) 

3304  FOR  19=1  TO  3 
3306  FOR  13=1  TO  400 
3308  P ( 19 . 18 ) =0 
3310  NEXT  13 
3312  NEXT  19 
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3314  RESTORE  331S 

3316  READ  834 J P ( 1 > 400 ) » P ( 2> 400 ) t P ( 3 r 400 ) > S 

3318  DATA  0 » 0 > 0 » 7 . OE-4 » 0 > -9 . 9E+99 > 9 . 9E+99 ? 0 » 0 r 0 t 0 » 1 . OE-3 r 0 r -9 . 9E+99 
3320  DATA  9 . 9E  + 99 , 0 » 0 » 0 » 0 > 8 . OE-4 , 0 > -9 . 9E  + 99 » 9 . 9E+  ?9  f 0 * 0 » 0 » 0 
3322  PRINT  'SELECT  DATA  SOURCE:  1»PACKED  FILE*  2-REDUCED  FILE  — ‘ S 

3324  INPUT  S9 

3326  GO  TO  S9  OF  3346  * 3330 
3328  STOP 

3330  PRINT  'PUT' 'SAFE' 'CASS  (FILE  23  = P ARRAT)  IN  4051.  ENT  R UN  R D Y - '5 
3332  INPUT  S$ 

3334  IF  S$=  * R ' THEN  3338 
3336  GO  TO  3330 

3338  DIN  P ( 3 f 400 ) 

3340  FIND  23 

3342  READ  033 JP 

3343  PRINT  'CK  i CORRECT  P<M»N>f  THEN  * ' RUN  (LINE  * AFTER  STOP)".' 

3344  STOP 

3345  GO  TO  3382 

3346  FIND  ZS 
3343  READ  033 :Z7 
3350  Z6=0 

3352  Z6=Z6+1 
3354  READ  033 :Z0 
3356  GO  TO  3360 
3358  PRINT  @4i:Z6»Z0J 

3360  REM J UNPACK  FIRST  HALF  ZO  TO  GET  PERIOD  Z1 

3362  Z1=INT(Z0)/1 .OErS 

3364  REM : PROCESS  UNPACKED  VALUE 

3366  GOSUB  3334 

3368  REM : UNPACK  l PROCESS  SECOND  PERIOD 
3370  Z1=(Z0-INT(Z0) )/100 

3372  GOSUB  3334 

3374  REMJUAS  THIS  WORD  THE  LAST  IN  FILE? 

3376  IF  Z6=Z7  THEN  3380 

3373  GO  TO  3352 

3380  PRINT  'LAST  ENTRY  HAS  BEEN  READ  FROM  PACKED  DATA  FILE' 

3382  GO  TO  3770 

3384  REM  J TESTING  i MAINTAINING  SYNC 

3335  REMIT?  SAMPS  ENTERED  STACK  SINCE  LAUNCH.  T 3=LAS7  REF  TAG 

3336  IF  T?=0  THEN  3512 

3338  GO  TO  T6  OF  3396  * 3^06 • 3406 t 346o 
3390  LIST  3333 
3392  PRINT  • T6= * i T6 
3394  STOP 

3396  REMJCYCLE  SHIFT 
3398  AO=A ( 4 ) 

3400  A=B 
3402  B=C 
3404  T?=T9+4 

3406  IF  Z1>1/1500  AND  ZlCl/240  THEN  3440 
3408  IF  Zl=> 1/1800  AND  Z1<=1/1500  THEN  3416 
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3410  REMJZl  NOT  DATA  AND  NOT  REF.  APPLY  NON-UALID  TAG  (.1; 

3412  Z1=0.1+Z1 
3414  GO  TO  3440 

3416  GO  TO  T 6 OF  3420  r 3426 » 3432 , 34 1 3 

3413  STOP 

3420  C< 1 )=0. 00416666 

3422  T6=T6+1 

3424  T7=T7+1 

3426  0 ( 2 ) =0 . 00416666 

3428  T6=T6+1 

3430  T7=T7+1 

3432  C < 3 ) =0 . 004 1 6666 
3434  T6=T6+1 

3436  T7=T7+1 
3438  GO  TO  3384 

3440  GO  TO  T 6 OF  3448 f 3454 , 3460 , 3466 

3442  LIST  3440 

'3444  PRINT  ,T6=*?T6 

3446  STOP 

3448  C(1)=Z1 

3450  T 6 = 2 

3452  GO  TO  3592 

3454  C (2 ) =Z1 

3456  T 6 = 3 

3458  GO  TO  3592 

3460  C(3)=Z1 

3462  T 6=4 

3464  GO  TO  3592 

3466  IF  Z1 =>1/1800  AND  Z1<»1/1500  THEN  3480 

3468  REM J REF  EXPECTED  BUT  MISSING i ADD  SYNC-LOSS  TAG  .99  TO  DDDft  SAMPS 
3476  C ( 4 ) =Z1 

3478  C=0 . 99+C 

3479  GO  TO  3484 
3482  TS=TQ+T7 

3433  C < 4 ) =Z1 

3484  T6=l 

3485  PRINT  * T9 » T7 , T8= * , T9 > T7 , TS 

3436  PRINT  *B=*  JT9+T7-7+B<  1)  » T9+T7-6+B  < 2 ) > T9  + T7-5  + & ( 3 ; » T9i-T7-4  + B<  4) 
3488  REM i RESTORE  CYCLE  IN  ARRAY  9.  IF  NEEDED 
3490  GOSU&  3594 

3492  REM J CALCULATE  PERIOD  RATIOS  IN  ARRAY  A 
3494  GQSUB  3664 

3496  PRINT  @4 1 J A ( 1 ) > A < 2 ) * A ( 3 ) > T9  + T7-8  + A < 4 ) 

3498  REM i SCAN  ARRAY  A i DETECT  SIG  RATIOS 
3500  FOR  N8=l  TO  3 
3502  P9=N8+A ( N8 ) 

3504  N9=T9+T7-12+N9 
3506  GOSUB  3692 
3508  NEXT  N8 
3510  GO  TO  3592 

3512  REM  J LOOKING  FOR  FIRST  SYNCHRONIZED  CYCLE 
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3514 

3516 

3518 

3520 

3522 

3524 

3526 

3528 

3530 

3532 

3534 

3536 

3538 

3540 

3542 

3544 

3546 

3548 

3550 

3552 

3554 

3556 

3558 

3560 

3562 

3564 

3566 

3568 

3569 

3570 
3572 
3574 


3580 

3582 

3534 

35S6 

3533 

3590 

3592 

3594 

3596 

3598 

3600 

3602 

3604 

3606 

3608 

3610 

3612 


GO  TO  T 6 OF  3516*3522*3522*3522*3532 
REM5IS  Z1  A REF  SIGNAL? 

IF  Z101/1300  AND  Z101/1500  THEN  3536 
GO  TO  3588 

REM J IS  Z1  A DATA  SIGNAL? 

IF  Z1>1/1500  AND  Zl<= 1/240  THEN  3542 

PRINT  'FALSE  START.  T6='*T6 

T6-1 

GO  TO  3512 

IF  Z1  =>1/1 300  AND  Z1 01/1 500  THEN  3566 
GO  TO  3526 
T 6 = 2 
B ( 4 ) =Z1 
GO  TO  3588 

GO  TO  T 6 OF  3544*3543*3554*3560*3544 

LIST  3542 

STOP 

T 6 = 3 

C< 1 )=Z1 

GO  TO  35SS 

T 6=4 

CC2)=Z1 

GO  TO  3 5 8 S 

T 6 = 5 

0 ( 3 ) = Z 1 

GO  TO  35S8 

REM : T9  IS  NO.  GF  SAMPS  TO  'ENTER*  STACK  SINCE  LAUNCH 

T9=T0*10+8 

T3  = T9 

T6=l 

C<4  )=Z1 

PRINT  Z6+T7+Z1 
PRINT 

PRINT  'LAST  5 SAMPS  ARE  FIRST  CYCLE  PASSING  RDDDR  RANGE  TEST' 

PRINT 

PRINT  'REF  STARTING  1ST  SYNC  CYCLE  (TIME-TAG  + PER).*  **T9-4+S(4) 
PRINT  'FOLLOWING  SAMPS  ARE  OUTPUT  FROM  SYNC  TEST  4 MAINTENANCE* 

GO  TO  3592 

REM  1 PRINT  FILE  ENTRY  NO.kZS)  4 PERIOD 
PRINT  Z6+T7+Z1 * ' '* 

RETURN 

REM? VALIDATE  DATA  IN  ARRAY  C USING  LIMITS  IN  D 
FOR  N9=l  TO  4 

GO  TO  N9  OF  3606  * 3600  * 3604  * 3606 
D(2)=400*D<2> 

GO  TO  3606 
D<2)=D(2)/40 0 

IF  ABS ( A ( N9 ) -C ( N9 ) ) <D ( N9 ) OR  ABS ( B ( N9 ) -C ( N9 ) ) <D ( N9 ) THEN  3610 
PRINT  'CC*N 9*')  FAILS  UAL  TEST . TIME-TAGGED  PER . = ' * T9+T7-4+N9+C ( N9 ) 
NEXT  N9 

REM : RESTORE  DATA  IN  ARRAY  B 


'LAST  5 SAMPS  ARE  FIRST  CYCLE  PASSING  RDDDR  RANGE  TEST' 

'REF  STARTING  1ST  SYNC  CYCLE  (TIME-TAG  + PER):  **T9-4+S(4) 
■FOLLOWING  SAMPS  ARE  OUTPUT  FROM  SYNC  TEST  4 MAINTENANCE* 


PERIOD 
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3614  N8=0 

3616  FOR  N9=l  TO  4 

3618  IF  ABS ( A < N9 ) -B < N9 ) ) <D ( N9 ) THEN  3642 
3620  REH:B(N9)N0T  OK.  CAN  C(N9)  BE  USED  TO  RESTORE? 

3622  IF  ABS ( A < N9 ) -C  < N9 ) ) <D ( N9 ) THEN  3628 
3624  REM.'C(N9>  NOT  OK  FOR  RESTORATION 
3626  GO  TO  3642 
3628  REM : RESTORE  B(N9) 

3630  PRINT 

3632  PRINT  'RESTORED  PACK-WORD" * i Z6-1 i ' FROM  * ? T9+T7-3+N9+B ( N9 ) i * TO  '? 
3634  B(N9)=(A(N9)+C(N9> )/2 
3636  PRINT  T9+T7-3+N9+B ( N9 ) 

3638  PRINT 
3640  GO  TO  3646 

3642  REM J NO  RESTORATION.  INCREMENT  COUNT  OF  NON-RESTORED  SAMPS  (N8) 

3644  N8=N8+ 1 

3646  NEXT  N9 

3648  IF  N8<4  THEN  3652 

3650  GO  TO  3660 

3652  PRINT 

3654  PRINT  'RESTORED  CYCLE  FOLLOWS:' 

3656  PRINT  T9+T7-7+B< 1 ) » T9+ T7-6+B ( 2 ) > T9  + T7-5  + BC3) j T9  + T7-4  + B(4) 

3653  PRINT 
3660  NS=0 
3662  RETURN 

3664  REM : CALCULATE  PERIOD  RATIOS  IN  ARRAY  A 
3666  IF  A < 1 ) =0  AND  A(2>=0  AND  A(3)=0  THEN  3670 

3668  IF  A0=>1/1800  AND  A001/1500  AND  ABS ( AO-A ( 4 ) ) • D < 4 > THEN  3676 

3669  C(l) =0.999 

3670  C( 2) =0.999 

3671  C ( 3 ) =0 . 999 

3672  PRINT  @41 J ' T AGS  ' J T9+T7-13 » ' S' » T9  + T7-9  f * FAIL  REF  COMP  t ADD  .999' 
3674  GO  TO  3690 

3676  FOR  N9= 1 TO  3 

3678  IF  A (N9) <0.0041 6666  THEN  3636 

36S0  LIST  3678 

3632  PRINT  'PROGRAMMED  STOP' 

3634  STOP 

3686  A(N9>  = <A0*(4-N9'>+A(4)  KN9  ) / ( 4*A  < N7  ) ) 

3688  NEXT  N9 
3690  RETURN 

3692  REM : FIND  SIGNIFICANT  PERIOD  RATIOS 

3694  REM J INPUT  IS  ID-TAGGED  PERIOD  RATIO  P 9 AT  TIME  N9  (SAMPLE  NO.) 
3696  REM : INPUT  TOLERANCES  ARE  S(Mrl) 

3698  REM : OUTPUTS  ARE  TIME-TAGGED  SIGNIFICANT  LEVELS  P(M»N) 

3700  REM:P(M.400)  IS  NO.  OF  SIGNIF  LEVS  STORED 
3702  M»INT(P9> 

3704  REM J CALCULATE  NEW  SLOPE  S<M»5) 

3706  S ( M > 5 ) = ( P9- INT  ( F'9  )-(S(M»2)  - 1 NT  <S(M»2)>)  ) / ( N9-INT  < S ( M > 2 ) ) ) 

3708  REM : TEST  NEW  SLOPE 

3710  IF  S ( M > 5 ) =>S  < M > 3 ) AND  S ( M » 5 ) < = S ( M » 4 ) THEN  3726 
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13712  REMJNEW  SLOPE  N.G.J  STORE  SIGNIFICANT  i LAST  VALUE  i EXPAND  LIMITS 
3713  5(M»2)=S<M>8) 

3714  IF  P ( M > 400 ) <399  THEN  3717 

13715  LIST  3714 
371i>  STOP 

3717  F (Mr  400 ) ®P ( M r 400 ) +1 

3718  PRINT  841J1  * , ‘ M=4?Mi‘  S . L . = 1 i 5 ( M , 2 ) 

3720  P<M»P<M»400> >=S<M»2) 

3722  S(M,3)=-9.0E+99 
3724  5 ( M .•  4 ) =9  . OE  + 99 

3726  REM  J NEW  SLOPE  O.K.j  SHRINK  ACCEPTANCE  SLOPE  LIMITS  IF  NEEDED 
3728  IF  N9>INT ( S ( M » 2)  ) THEN  3736 

3730  S ( M r 6 ) = ( P9-INT ( P9) +S (M » 1 ) - ( S ( M * 2 ) - 1 NT ( S < M > 2 ) ) ) ) / < N9-INT ( 3 < M 1 2 ) > ) 
3732  S ( M f 7)  =»  ( P9-INT < P9  > -S  ( M > 1 ) - < S < M » 2 > -INT < S < M > 2 > ) ) ) / ( N9-INT  ( S ( M , 2 ) ) ) 
3734  GO  TO  3740 

3736  S(M,6)=(P9-INT(P9)-S(M, 1 > - < S ( M , 2 ) -I NT ( 3 ( M . 2 ) ) ) > / < N9-INT < S < Mr  2)  > ) 

3738  S C M f 7 ) = ( P9-INT  ( P9 ) +S ( M > 1 ) - ( S ( M > 2 > - INT  ( S ( M > 2 > ) ) ) / ( N9-INT  ( S < M r 2 > ) ) 

3740  REMJTEST  MIN  SLOPE 

3742  IF  S<Mr6)>S<M»3>  THEN  374S 

3744  REM J MIN  ACCEPTABLE  SLOPE  OK  AS  IS 

3746  GO  TO  3?52 

3748  REM J UPDATE  MIN  ACCEPTABLE  SLOPE 
3750  S<M>3)=S(M>6) 

3752  REMJTEST  MAX  SLOPE 

3754  IF  S ( M r 7 ) < S ( M > 4 ) THEN  3760 

3756  REM J MAX  ACCEPTABLE  SLOPE  O.K.  AS  IS 

3758  GO  TO  3764 

3760  REM J UPDATE  MAX  ACCEPTABLE  SLOPE 
3762  S<M,4)=S(M,7) 

3764  REM J ACCEPTANCE  SLOPE  LIMITS  UPDATED  > NOW  UPDATE  LAST  LEVEL 
3766  S<M »8) =N9+ ( P9-INT ( P9  ) ) 

3763  RETURN 

3770  REM J ARRAY  OF  SIGNIFICANT  PERIOD  RATIOS  HAS  BEEN  EblL T. 

3780  REM  J DATA  CONTINUITY  TESTING  AND  RESTORATION 

3790  REM  J E9=RATI0  RATE  LIMIT  > ES=TEMP  RATE  LIMr  E7=PR£S  LIM  E6=HUM  LIMr 
3300  REM  J E3  = RATI0  RATE  r E4=THIS  T AG-RATIO  t £3  = P0INTER  TO  LAST  CON  RATIO 
3802  PRINT  'TO  LIST  PER.  RATIOS  BEFOR  GAP  PROC'Gr  ENTR  “ + “ — •; 

3304  INPUT  Si 

3805  IF  SJOT  THEN  3810 

3306  PRINT  l?41  J ‘TIME-TAGGED  PERIOD  RATIOS  BEFORE  GAP  PROCESSING  * 

3307  PRINT  841 JP 

3308  PRINT  ’ CK  DATA  LIST  & MAKE  NEEDED  CHANGES  BEFOR  CONTINUING  RIJN’ 

3309  STOP 

3310  DIM  P ( 3 f 400 ) 

3820  RESTORE  3840 
3830  READ  834  J E3  > E7  .*  Ec. 

3840  DATA  1 . 03 » 1 . 01 t 1 . 5 
3350  FOR  M= 1 TO  3 STEP  2 
3855  PRINT  * •» ‘START  M=  * * M 
3860  GO  TO  M OF  3370 * 3890 f 39 1 0 
3870  E9=E3 
3380  GO  TO  3920 
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3S90  E9  = E7 
3900  GO  TO  3920 
3910  E9  = E6 

3920  REM {FIND  FIRST  RATIO  IN  EXPECTED  RANGE 

3930  N= 1 

3940  E3=P < M > N ) 

3950  IF  E3-INT ( E3 ) >0 . 1 AND  £3- 1 NT < E3 ) <0 . 95  THEN  3980 

3960  N=N+ 1 

3970  GO  TO  3940 

3980  E3=N 

3990  N=Nrl 

4000  E4=P  ( M .*  N ) 

4010  E5=  ( E4-INT  ( E4  ) ) / ( P ( M » E3 ) - INT  ( F‘  < M » E3  > ) ) 

4020  E5*E5~< 10/<INT(E4)-INT<P<M»E3> ) ) ) 

4030  IF  E5CE9  AND  E5>l/E9  THEN  4130 

4040  REM:RATIO  CHANGE  IS  EXCESSIVE.  FIND  NEXT  RATIO  WITHIN  CHANGE  LIMIT 

4041  PRINT  1 ’ t * E5= ' r E5 

4042  59=INT(P( 1 , P<  1 , 400) ) ) 

4043  Z9=INT ( P ( 3 » P ( 3 • 400  ) ) ) 

4044  IF  M=3  AND  INT(E4)>S9  AND  Z9-INT ( E4 ) <20  THEN  4048 

4047  GO  TO  4050 

4048  PRINT  * BAD  HUM  PAST  TEMP  END  S WITHIN  2 SEC  OF  HUM  END* 

4049  GO  TO  4070 

4050  IF  N<P ( M » 400  > THEN  4300 

4060  PRINT  * REACHED  END  OF  FILE  POMfN).  LAST  OK  SAMP=  * • P ( M » E3  ) 

4070  PRINT  * FOLLOWING  SAMPS  BEING  DELETED:* 

4080  N=E3 
4085  N=N+1 

4090  PRINT  * * , " * ,P(M»N) 

4100  P ( M f N ) =0 

4110  IF  N=P ( M > 400 ) THEN  4122 
4120  GO  TO  4085 
4122  P ( M » 400 ) =E3 
4124  GO  TO  4300 

4130  REM  t RATIO  CHANGE  IS  WITHIN  EXPECTED  LIMITS 
4140  IF  E3=N-1  THEN  4290 

4150  IF  INT(E4)-INT(P (M?E3) ) <21  THEN  4190 
4160  LIST  4150 

4170  PRINT  'DATA  GAP  EXCEEDS  2 SEC.  SHOULD  IT  BE  RESTORED?* 

4130  STOP 

4190  PRINT  ‘DATA  GAP  <2  SEC  BEING  RESTORED* 

4200  PRINT  ‘PRE-GAP  VALUE  =*?P<M,E3) 

4210  E3=E3+1 

4220  PRINT  *P<  **M*  *»  * *E3i  *)  CHANGED  FROM  *»P(M»E3)»**  TO  *# 

4230  E2=E5” ( ( INT(P(M>E3) ) -INT ( P ( M t E3- 1 ) > )/10) 

4240  P < M » E3 ) = INT < P ( M » E3 ) ) + < P < M » E3-1 ) -INT ( P < M > E3-1 ) ) )*E2 
4250  PRINT  P(MfE3) 

4260  IF  E3=N- 1 THEN  4280 
4270  GO  TO  4210 

4280  PRINT  ’POST-GAP  RATIO  = *»P(M»N) 

4290  E3=N 
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4300  IF  N=>P < M f 400 ) THEN  4320 
4310  GO  TO  3990 

4320  PRINT  • VEND  M=  ’ » M 

4321  NEXT  M 

4322  PRINT  'TO  LIST  PER.  RATIOS  AFTER  GAP  PROC ' G t ENTR  ” + ” — * » 

4324  INPUT  S* 

4326  IF  S*<>*+*  THEN  4330 

4328  PRINT  341J ’PERIOD  RATIOS  AFTER'  GAP  PROCESSING’ 

4329  PRINT  341 JP 

4330  STOP 

4340  REM J NOW  IMPORT  SOFTWARE  FOR  PROCESSING  DATA  FROM  ARRAY . 

4345  PRI  ’LOAD  ’’SAFE”  PROG  CASS  IN  INTERNL  UNIT.  ENTR  R WEN  RDY  — M 

4350  INPUT  Si 

4355  IF  S$= ’ R ’ THEN  4365 

4360  GO  TO  4345 

4365  FIND  3 

4370  DELETE  100>4360 

4375  APPEND  4750 

4750  REM : PROG  FILE  3 GETS  APPENDED  HERE 
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4750  REM J THIS  PROG  FROM  FILE  3 APPENDS  TO  END  OF  PROG  FROn  FILE  2 
4755  REM  I ANALYZE  DATA  FROM  INTERNAL  FILE 
4760  DELETE  100,4749 

4765  REM : CALCULATE  MB  PRESSURE  (09)  AT  LAUNCH  ALT 

4770  REM  J INPUTS-  PRESSURE  ALT  PI  ( KFT ) , SURFACE  PRESSURE  P2  < MB ) 

4775  09= ( P2~0 .190263-0 . 0256553*P1 ) ”5 . 255333 

47S0  REM  1 09  + 10'*'  = PRESS  AT  1ST  OBSERVABLE  CON  BN  ("3  SEC  AFTER  LAUNCH) 

4735  REM : FETCH  FIRST  BARO  BK  NO.  00  THAT  WILL  OCCUR  AFTER  09+5 
4790  00=100 

4795  IF  0(00) >09+5  THEN  4310 
4300  00=00-1 
4805  GO  TO  4795 

4810  PRINT  • FIRST  CONTACT  NO.  EXPECTED  IS  APPROX  ■ ;G0 
4315  08=00 

4820  REM J BREAK  DETECTION  i CONTACT  NO.  ASSIGNMENT 

4825  REM:08  = NEXT  EXPECTED  CON  NO . ! Q7  = THIS  CON  TYP  * 06=  LAST  CON  TYP 
4830  REM:05=C0N  START  TIME;  04=C0N  STOP;  03=  INS  START;  02=  INS  STOP 
4335  REM  J 01=CQN  NO.  ERROR,'  QO=EXPECTED  INITIAL  CON;  F9=PRE3  FILE  POINTER 
483a  REM:F3=LAST  SIGNIF  RATIO 
4340  08=00 
4345  DIM  F(100) 

4350  RESTORE  4860 

4855  READ  034 : N , 07 , 06 , 05 , 04 , 03 , 02 , F9 , F3 
4860  DATA  1,9, 9, 0,0,0, 0*0,0 

4365  IF  INT ( P ( 2 , N ) ) - INT ( F ( F9 ) ) > 200  THEN  4863 
4866  GO  TO  4876 

4863  PRINT  'CON  BK  OVERDUE.  TIME-TAG® * ? INT ( P ( 2 , N ) ) ; 

4869  Q8=100#(F(F9)-INT(F<F9) ) ) +INT ( ( INT ( P ( 2 , N ) ) -INT ( F ( F9 ) ) ) /I 10+0 . 5) 

4870  PRINT  1 . NOW  EXPECTING  BK  * * } 08 

4376  IF  P(2,N)-INT(P(2,N) XI .OE-4  THEN  5175 

4377  IF  ABS ( P ( 2 , N ) -INT ( P ( 2, N ) ) - ( F8-INT ( FS ) ) ) = 0.01  THEN  5165 
4878  GO  TO  ( P ( 2 , N ) -INT ( P ( 2 , N ) ) -0 . 52 ) /O . 1 4 OF  4385,4885,4900 
48SC  IF  P ( 2 , N ) - INT ( P ( 2 , N ) ) <0 . 59  THEN  5065 

4882  LIST  4330 

4883  STOP 

4835  REM .'  CONTACT  IS  5-  OR  15-TYPE 

4890  07=5 

4895  GO  TO  4910 

4900  REM. 'CONTACT  IS  1-TYPE 

4905  07=1 

4910  REMJCONTACT  MONITOR  % MANE  DETECTOR 
4920  IF  05:  0 THEN  4930 
4925  05= INT ( FS ) 

4930  G4=INT ( P ( 2 , N ) ) 

4931  IF  Q4-Q5<8  THEN  5165 

4932  IF  03=0  THEN  5165 

4935  IF  02-03 <.  120  AND  Q5-Q2<21  THEN  4970 
4940  LIST  4935 

4960  PRI  ’WILL  ASSIGN  TENT  CON  NO.  ’ ; 08 i * IF  TEST  FAILURE  IS  OVERRIDDEN* 
4965  STOP 

4970  REM .'  DECLARE  * ’MAKE’*  HERE  (IF  WANTED)  S CLR  INS  REGS 
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4976  PRINT  * •»*  * , * Q3= * t 03 > ’ 02= * i 02 
49S0  IF  0705  THEN  5050 

4985  REM  5 THIS  CON  IS  5-TYPE . IS  5-TYPE  EXPECTED? 

4990  01=5* ( 08/5- I NT ( 03/5 ) ) 

4995  IF  Q 1=0  THEN  5050 

5000  GO  TO  Q1  OF  5035 > 5035 > 50 1 5 . 5025 

5005  LIST  5000 

5010  STOP 

5015  01 =-2 

5020  GO  TO  5035 

5025  01 =- 1 

5035  PRINT  ' CON  NO.  EXPECTED*  * >08?* > BUT  5-  OR  15-TYPE  WAS  DETECTED.* 

5040  GOSUB  5200 

5050  03=0 

5055  02=0 

5060  GO  TO  5165 

5065  REM : INSULATOR  MONITOR  8 BREAK  DETECTOR 
5070  07=0 

5080  IF  Q3>0  THEN  5085 

5081  REM J SET  INS  START  TIME 

5082  Q3=INT ( F3 ) 

5085  Q2=INT(P<2» N) ) 

5090  IF  02-03- .3  THEN  5165 

5091  IF  05=0  THEN  5165 

5095  IF  Q4-Q5<30  AND  Q3-Q4<21  THEN  5110 
5100  LIST  5095 
5105  STOP 

5110  REM : DECLARE  BREAK  8 CLR  CON  REGS 

5116  PRINT  * 05=  * > 05  f * 04=  * >04 

5120  PRINT  'BARO-BREAK:  * t 04+2+08/ 1 00 

5125  F9=F9+1 

5130  F (F9)=Q4+2+08/100 

5135  08=08-1 

5140  05=0 

5145  04=0 

5150  GO  TO  5165 

5165  REM : SET  LAST  TYPE  REG  8 READ  NEXT  SIGNIF  RATIO 

5166  F3=PC2.N) 

5170  06=07 
5175  N=N  + 1 

5130  IF  N>P ( 2 f 400 ) THEN  5190 
5135  GO  TO  4865 

5190  PRINT  'END  OF  BAR'O  PERIOD  RATIO  PROCESSING* 

5191  F(F9+1)=INT (F(F9) ) + 2 MAX  04+2 

5192  F ( F9+1 ) =F<  F9 ) MAX  02  + 2 

5193  F9=F9+1 

5194  GO  TO  5300 

5200  REM  .‘CORRECTION  OF  CON  NO. 

5205  IF  00-08-5  THEN  5235 

5210  REM : CON  NO.  CORRECTION  NEEDED.  GET  PRINT  OF  CON  NO.  ASSIGNMENTS. 
5215  REM  1 MANUALLY  ANALYZE  8 CORRECT.  NOTE  IF  CAN  AUTOCORRECT » PROCEED 
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5220  LIST  5205  >5215 

5225  STOP 

5230  GO  TO  5270 

5235  PRI  ‘THIS  IS  1ST  5-/15-TYPE  CON i CORRECT  08  S EARLIER  CONS  BY  -01* 
5240  03=08-01 
5245  N9=0 

5250  IF  F ( F9+N9 ) - INT ( F < F9+N9 ) )<=Q0  THEN  5255 

5251  00=00-01 

5252  GO  TO  5270 

5255  F(F9-N9)=F(F9-N9>-Q1/100 
5260  N9=N9+ 1 
5265  GO  TO  5250 
5270  RETURN 

5300  REM : CONCERT  CON  NOS.  TO  MB  IN  F ARRAY 
5310  FOR  N=1  TO  F9-1 

5320  F < N ) =INT ( F < N ) > +Q ( 100* < F < N ) - INT < F < N > ) ) )/ 10000 

5330  NEXT  N 

5335  F < 100 ) =F9-1 

5340  FOR  N=F9  TO  99 

5345  F ( N ) =0 

5350  NEXT  N 

5360  PRINT  * QPR-ENTERED  ESTIMATE  OF  SURFACE  PRESSURE* * t P2 

53*5  PRINT  ’ CK  FOLLOWING  CON  BN  TIMES  l PRESSURES  (SEE  1 9 LOOK  OK  ) * 

5400  REM : LIST  PRESSURE-TIME  PROFILE 
5410  PRINT 
5420  PRINT 

5430  PRINT  * F ( N ) » TAG . P TIME  (APPROX.  SEC / PRESSURE  (MB)* 

5440  FOR  N= 1 TO  F9-1 

5450  PRINT  F ( N ) • 1 1 . INT ( F ( N )) /I 0 . (F ( N ) -INT ( F ( N >))* 10000 
5460  NEXT  N 
5470  PRINT 

5430  PRINT  * ' . ' END  OF  DATA* 

5485  PRINT  'PRESSURES  F ( N ) LIST  LOOK  OK?  IF  NOT  . CHANGE  BEFOR  TEMP  RUN* 
5490  STOP 

5500  REM  J CALCULATE  TEMPS.  T9=RES  RATI  0 . T8=THIS  APPARENT  TEMP.  T7  = LAST 

5502  REMJAPP  TEMP.  T6=THIS  TIME.  T5=L AST  TIME 

5503  PRINT  'STARTING  TEMP  CALCS' 

5506  REM .* JO  i J1  ARE  LAG  COMP  FACTORS  FOR  TEMP  % HUM  RANGING  0 TO  1 

5508  RESTORE  5509 

5509  DATA  -99.0.0 

5510  READ  !?34:T9.  JO.  J1 

5511  PRINT  'COMPS  SET  AT  TJ'iJOi*  i HJ'rJl.'i  WANT  CHANGE7  ( 1 f /2- ) - ' i 

5513  INPUT  Z9 

5514  GO  TO  Z9  OF  5516.5520 

5515  GO  TO  5511 

5516  PRINT  * ENTR  COMP  SETTINGS  IN  RANGE  0-1  (NONE-FULL)  (T.TT  H . HH > - '5 

5517  INPUT  J0.J1 

5518  GO  TO  5511 

5520  PRINT  041 :'  LAG-COMP  LEOELS  ARE  SET  TO  Ti'fJOJ’  % HJ'.Jl 

5522  FOR  N= 1 TO  P( 1.400) 

5523  T9=P ( 1 . N ) - INT ( P ( 1 . N ) ) 


l 
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5525  T6= INT ( P d f N ) ) 

5530  IF  T?>0 • 1 THEN  5560 

5540  LIST  5530 

5550  GO  TO  5640 

5560  REM .* CALCULATE  RES  RATIO 

5565  T9= ( 52 . 719/T9-47 . 718 ) /R3 

5570  REM CALCULATE  APPARENT  TEMP 

5575  TS=65.3/d-SGRd-0.0480921*L0G< T9/3 . 37S5E-4 ) ) )-273.16 
5530  P d » N ) = I NT  < P d » N ) )+T8/1000 

5584  GO  TO  5590 

5585  PRINT  ‘TIME-TAGGED  APPARENT  TEMP ( MILLIDEG  C)*‘rPd»N) 

5590  IF  T7>-70  THEN  5620 

5600  LIST  5590 
5610  STOP 

5620  REM : LAG-COMP  OF  TEMP  f J0=C0MP-LEVEL  SETTING  (0-1.*  NONE-FULL) 

5630  Z9=INT< ( T6+T5 ) /2+0 . 5 > 

5632  Pd»N-l>«Z9+0. 1 + 1 .0E-3*( < T9+T7 > /2+ < T3-T7 ) / ( T6-T5 ) *20* JO > 

5634  GO  TO  5e>40 

3o35  PRINT  'TAG?  ‘ JINT(PdfN)  ) » *LC  TEMP  :’»<  P d f N > -INT  < P d r N >> -0  d ) *1 000 
3o37  FRINT  1000* ( P ( 1 . N- 1 ) -INT ( P ( 1 . N-l ) ) -0 . 1 > 

5o40  T7=T3 

5650  T5  = T6 

5670  NEXT  N 

5672  P(lf P(lf 400) ) =0 

3674  P(lf 400 ) =P ( 1 f 400 ) - 1 

5630  PRINT  ‘END* 

5690  STOP 

6000  REM  J OVERLAY  P(3*N)  ARRAY  WITH  COMP  HUM  UALUES. 

6020  REM:C9  = LAST  APF'  HUMf  C3  = LAST  APP  HUM  TIME-TAG.  C7  = MEAN  APP  HUM 
6040  REM:C3=MEAN  T AG  f 05=  APP  HUM  RATEf  C4  = THI3  APP  HUM  TIME  TAG 
6050  PRINT  ‘STARTING  HUM  CALCS’ 

6060  RESTORE  6100 
6080  READ  034:C9.D7 
6100  DATA  999 ,1 
6160  FOR  N=  1 TO  F'<3f400) 

6180  REM : CALC  HYGR  RES  RATIO  R8 
6200  RS  = P(3f  N)-INT(F'(3f  N)  ) 

6209  PRINT  ‘PER  RATIO  = ‘ » R8  r 

6210  IF  RS=0  THEN  6860 

■:i220  R8=52 . 71S/R8-47 . 718-7  d 

6230  R8=250*R8/ ( 250-R8 ) /R4 

6239  PRINT  * RES  RATIO* ‘»R8 

6240  REM : FETCH  CORRESPONDING  COMP  TEMP  T6  FOR  APP  HUM  CALC 
6260  C4  = INT  C P ( 3 . N ) ) 

o270  D9=C4 

6279  PRINT  ‘ TIME=  ‘ r C4/10 ( 

6280  GOSUB  7000 

6231  PRINT  ‘ TEMP=‘fD8f 
6300  T 6-D3 

6320  REM : CALC  APP  HUM 
6340  GOSUB  9000 
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6359  PRINT  ■ APP  H=*?H9 

6360  IF  C9>101  OR  H9=99°  THEN 
6365  GO  TO  6330 
6370  IF  N<=1  THEN  oSOO 
6375  P ( 3 r N- 1 ) = I NT ( P ( 3 r N- 1 ) ) +0.999 
6377  GO  TO  6300 

6330  REM : CAL  MEAN  AP  HUM  C7.  MEAN-TAG  TEMP  C6  3 HUM  RATE  C5  FOR  HUM  SEG 

6400  C7= ( H9+C9 ) /2 

6420  C3=INT< ( C4+CS ) /2+0 . 5 ) 

6440  C5=(H9-C9)/(C4-C8>*10 

6460  REM : FETCH  COMP  TEMP  C6  FOR  TIME- FAG  C3 
6430  D9=C3 

6499  PRINT  ’ TIME= ‘ r D9/1 0 r 

6500  GOSUB  7000 

6501  PRINT  1 TEMP=*fDSf 

6502  IF  080999  THEN  6520 

6504  IF  C3-INT(P( 1 »P( 1 .400) ) ) : 0 AND  C3-INT ( P ( 1 r P ( 1 . 400 ) ) ) 04  THEN  6510 
6506  GO  TO  6520 

6510  PRINT  'TAG  IS  WITHIN  4 SEC  OF  TEMP  END.  LAST  TEMP  WILL  BE  USED* 

6512  DS  = C6 

6514  PRINT  • TEMP=*;D3 

6520  C6=D8 

6540  GOSUB  ?000 

6541  PRINT  * ’ . 1 COMP  H= ‘ . G6 

6545  IF  G60100  THEN  6560 

6549  LIST  6545 

6550  PRINT  'COMP  HUM  CHANGED  FROM  ■ » G6 i ‘ TO  100.  TIME  T AG=  * i C6 
6560  P < 3f  N-l ) =C3+1 . OE-3# ( G6  MIN  100) 

6300  REM : SET-UP  FOR  PROCESSING  NEXT  N 

6320  C9=H9 

6840  C3=C 4 

6360  NEXT  N 

6380  F‘  ( 3 r P < 3 r 400 ) )=0 

6900  P ( 3 r 400 > *P  < 3 r 400  > - 1 

6920  PRI  ‘COMP  HUM  VALUES  HAVE  BEEN  STORED  IN  REDUCED  DATA  FILE  P(3.N>‘ 
6940  PRINT  @41  .*P 
6960  GO  TO  9100 

7 000  REM  .‘APPEND  TEMP-FETCH  HERE 

7020  REM  .*  FETCH  COMP-TEMP  D8  FOR  TIMETAG  D«  USING  POINTER  07 

7022  IF  INT ( P ( 1 f 1 ) ) =D9  AND  INT(P(1.P(1*  400 ) ) J-  D 9 THEN  7040 

7024  PRINT  ‘TIME-TAG  D9  (*)D9;‘>  IS  OUTSIDE  LIMITS  OF  REDUCED  TEMP  DA  FA • 

7026  D8=999 

7028  GO  TO  7360 

7040  IF  D7*> 1 AND  D7<*P(1f400)  THEN  7080 

7050  IF  D7<>0  THEN  7080 

7060  D8=999 

7070  GO  TO  7360 

7080  D8=INT ( P ( 1 . D7  ) ) 

7100  IF  D80D9  THEN  7160 
7120  D8=1000*(P( 1 f D 7 ) - 0 . 1-D8) 

7140  GO  TO  7360 
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7160  IF  D8CD9  THEN  7220 

7180  07=D7-1 

7200  GO  TO  7040 

7220  07=07+1 

7240  D8=INT(P( 1 »D7) ) 

7260  IF  D8=D9  THEN  7120 
7230  IF  D8>D9  THEN  7320 
7300  GO  TO  7220 

7320  D8= ( D9-INT  (P  ( 1 > D7-1 ) ) ) / ( DS-INT ( P < 1 , D7-1 ) ) ) 

7340  D8=D8*(P< 1 > D7 ) -INT ( P ( 1 » 07 ) ) - ( P ( 1 > D7- 1 ) -INT CP ( 1 > 07- 1 ) ) ) ) 

7350  08*1000# < P ( 1 » 07-1 ) -INT ( P ( 1 » 07-1 ) )-0. 1 + 08) 

7360  RETURN 

3000  REM J CALC  ZRH-  INPUT  COMP  TEMP  T6  S HYG  RATIO  R3»  OUTPUT  RH  ‘/.H? 
S001  IF  T 6 099 9 THEN  8005 
3002  H9=999 
9003  GO  TO  8515 

3005  DATA  0 . 52 > 0 . 62 > 0 . 74 > 0 . 82 > 0 . 9 • 1 . 1 > 1 . 3 > 1 . 63 > 2 . 23 

3010  OATA  3.1*4.2>6.5>10.2»17f29,45,45f45,45f45 

3015  OATA  0 . 55  f 0 . 65  f 0 . 78 » 0 . 85 » 0 . 92  f 1 . 06  > 1 . 23  > 1 . 4 > 1 . 75 

3020  OATA  2 ♦ 35  j 3 • 1 * 4 , 1 > 6 > 9 « 8 » 17  f 26  * 44  » 86  » 1 70  * 250 

3025  OATA  0 . 585 » 0 . 695 » 0 ♦ 8» 0 . 875 » 0 . 94 > 1 . 05 » 1 . 175 » 1 . 32 » 1 . 58 

8030  OATA  2>2.5>3.25»4.5>7.3>12jl8.5>29>60*140f220 

3035  OATA  0 . 61 > 0 . 72 t 0 . 82» 0 , 89 > 0 . 95 » 1 . 04 , 1 . 15 » 1 . 27 » 1 , 47 

8040  OATA  1 . 85 t 2 ♦ 3 t 3 j 4 » 6 . 4 > 1 0 t 1 6 > 23 i 40 > 1 26 i 206 

3045  HI =0 

3050  H2=0 

3055  H3=0 

3060  H4=0 

3065  IF  T 6 = >-40  ANO  T6<0  THEN  8075 

3070  GO  TO  3090 

3075  RESTORE  8005 

3080  HI =999 

3035  GOSUB  8290 

3090  IF  T6=>— 40  AND  T6<25  THEN  3100 

3095  GO  TO  8115 

3100  RESTORE  3015 

3105  H2=999 

3110  GOSUB  3290 

3115  IF  T 6>0  AND  T6<40  THEN  SI 25 

3120  GO  TO  3140 

3125  RESTORE  8025 

8130  H3=999 

3135  GOSUB  8290 

3140  IF  T 6 -25  AND  T6<=40  THEN  3150 

3145  GO  TO  8165 

3150  RESTORE  3035 

3155  H4=999 

31a0  GOSUB  829^ 

3165  IF  T6<-40  OR  T6>40  THEN  3175 
3170  GO  TO  S190 
3175  LIST  8165 
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3130  PRINT  * T 6=  ' iT6»*  - TILT!!!  TEMP  EXCEEDS  HYG  RATIO  LIMITS* 

3181  PRINT  "WILL  SET  H9=999  S RETURN" 

3182  GO  TO  3002 
3185  STOP 

3190  REM : TEMP  INTERPOLATION  OF  RH  BEGINS  HERE 
3195  IF  H1>0  AND  H2=0  AND  H3=0  AND  H4=0  THEN  3455 

3200  IF  HI =0  AND  H2>0  AND  H3=0  AND  H4=0  THEN  3465 

3205  IF  H 1 =0  AND  H2=0  AND  H3>0  AND  H4=0  THEN  3475 

3210  IF  H 1 =0  AND  H2=0  AND  H3=0  AND  H4>0  THEN  3485 

3215  IF  H1>0  AND  H2>0  AND  H3=0  AND  H4=0  THEN  3225 

3220  GO  TO  3235 
8225  H9=H1+(H2-H1 )*<T6+40)/40 
3230  GO  TO  3495 

3235  IF  H 1 =0  AND  H2>0  AND  H3>0  AND  H4=0  THEN  3245 

8240  GO  TO  3255 

3245  H9=H2+(H3-H2)*T6/25 

3250  GO  TO  3495 

3255  IF  H 1 =0  AND  H2=0  AND  H3>0  AND  H4  0 THEN  3265 

3260  GO  TO  3275 

3265  H9=H3+ ( H4-H3 ) * ( T 6-25 ) /15 

3270  GO  TO  8495 

3275  LIST  3255 

3230  PRINT  ‘PROGRAMMED  STOP* 

3285  STOP 

3290  REM : INTERPOLATE  RATIO  TO  GET  HUM  ? PUT  HUM  IN  PLACE  OF  999  VALUE 

3295  H7=5 

3300  READ  l?34:H8 

3305  IF  R8=>H8  THEN  3320 

3310  H5=9 , 9 

3315  GO  TO  8370 

3320  H7=H7+5 

3325  IF  H7O105  THEN  3345 
3330  LIST  3325 

3335  PRINT  * HYGR  RATIO  EXCEEDS  LIMITS > (=‘;R3?‘>‘ 

3340  GO  TO  8002 

3345  H6=H8 

3350  READ  334 JH8 

8355  IF  R8>H8  THEN  3320 

3360  REM:R3  IS  IN  RANGE  OF  Ho  - H8>  WILL  INTERPOLATE  RATIO  TO  GET  HUM 
3365  H5=H7+5* ( R8-H6 ) / ( H8-H6 ) 

3 370  REM  J REPLACE999  UITH  H5  THEN  RETURN 

3375  IF  H 1 =999  AND  H2C106  AND  H3C106  AND  H4C106  THEN  8410 

3330  IF  Hl<106  AND  H2=999  AND  H3C106  AND  H4<106  THEN  3420 

8385  IF  HI <106  AND  H2C106  AND  H3=999  AND  H4<10o  THEN  8430 

3390  IF  HI <106  AND  H2C106  AND  H3  <106  AND  H4  = 999  THEN  3440 

3395  LIST  3390 

3400  PRINT  ‘PROGRAMMED  STOP* 

3405  STOP 
3410  H1=H5 
3415  GO  TO  8450 
8420  H2=H5 
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3425  GO  TO  3450 

3430  H3=H 5 

3435  GO  TO  3450 

3440  H4=H5 

3445  GO  TO  3450 

3450  RETURN 

3455  H9  = H 1 

3460  GO  TO  8495 

3465  H9=H2 

3470  GO  TO  3495 

3475  H9=H3 

3430  GO  TO  8495 

3485  H9=H4 

3490  GO  TO  3495 

3495  IF  H90100  THEN  8513 

3500  PRINT  * AF'F'  HUM  CHANGED  FROM  ,;H9;<  TO  1005  TIME-TAG-* J INT<P C3rN> > 
3505  H9=100 

3510  REMJTHIS  PROG  MODIFIED t DEBUGGED  i WORKING  AT  SBRT  LEVEL . MCU770809 
3515  RETURN 

9000  REM  J LAG-COMP  HUM.  INPUTS-  HUM  C7 , TEMP  C6*  HUM  RATE  05  * OUTPUT  (3* 

9001  rem:ji=hum  lag-comp  setting  (o-i : none-fuld 

9005  IF  C5<0  THEN  9020 

9010  G6=0. 1 7* ( 273 . 16/(06+273. 16) ) +0. 36* (273 . 1 6/ ( C6+273 . 1 6 ) >~17 
9015  GO  TO  9025 

9020  G6=0 . 2* ( 273 . 16/ ( C6  + 273 . 16 ) ) +0 . 75* ( 273 . 1 6/ ( C6  + 273 . 16) >~19 .3 
9025  G6=C7+G6*C5*J1 

9030  REM  .*  END  OF  HYGRISTOR  LAG-COMRENSAT I ON  PROG 
9035  RETURN 
9100  STOP 

9110  PRINT  ‘SAFE  PROG  CASS  IN  CONSOL  . WEN  RDY  FOR  FILE  4,  ENTR  R - ' » 

9120  INPUT  SS 

9130  IF  S $ = ’ R ' THEN  9150 

9140  GO  TO  9110 

9150  FIND  4 

9160  DELETE  4750*6960 

9170  DELETE  3000*^140 

9130  APPEND  9200 

9200  REM : FILE  4 GETS  APPENDED  HERE 
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9200  REMJFILE4.  TO  BE  APPENDED  TO  FILE  3 AT  LINE  9200 
9210  DELETE  9150,9180 

9230  REM J EXTRAPOLATE  PRES  TO  SURFACE.  U9-SURF  TAG,  U8=LAST  BK  TAG 
9240  REM:U7=2ND  LAST  BN  TAG,  U6=LAST  BN  PRES,  U5=2ND  LAST  BN  PRES 
9250  U9=< INT(P( 1 ,P< 1 ,400) ) ) MAX  INT ( P ( 3 , P ( 3 , 400 ) ) ) ) +4 
9260  F ( 100 ) =F ( 100 ) +1 
9270  U3=INT(F(F(100)-1) ) 

9280  U7=INT (F<F( 100)-2) ) 

9290  U6=F ( F < 100 ) -1 ) -U8 
9300  U5=F<F( 100)-2)-U7 
9320  S9=U9+U5+(U9-U7)/(US-U7)*(U6-U5) 

9325  PRINT  'OPR-ENTERED  SURFACE  PRES  ESTIMATE  = ‘ >P 2?'  MB.* 

9330  PRINT  * T AGGED-PRES  EXTRAPOLATION  TO  3URF=  *JS9 

9340  PRINT  * * , * WANT  TO  CHANGE  XTRAPLTD  PRES?  ENTR  l<  + > OR  2<->  - * i 

9350  INPUT  Z9 

9360  GO  TO  Z9  OF  9380,9400 
9370  GO  TO  9340 

9380  PRINT  * ENTR  DESIRED  MB  PRES  FOR  SURFACE  (PPPP.P)  — *j 
9382  INPUT  S9 

9334  REM  .‘EXTRAPOLATE  S BUILD  TAG . P FOR  SURFACE 
9386  Z9=F(F(100)-1)-INT (F(F(lOO)-l  ) ) 

9337  Z3=F(F< 100  ) -2 ) - INT ( F ( F ( 100) -2)  ) 

9338  Z9=(S9/10000-ZS)/ (Z9-ZS) 

9390  Z9=INT(F(F( 100)-2) ) 4Z9* ( INT ( F < F< 100 ) -1 ) ) -INT ( F ( F < 100 ) -2 ) ) ) 

9392  S9=INT(Z9+0.5)+59/10000 
9400  PRINT  *F( 100)=* ?F( 100) 

9402  PRINT  ’WILL  STORE  ENTRY  AS  FOLLOWS:  F (* J F ( 100 )?*)=*? S9 
9404  PRINT  * WANT  TO  REENTER  BEFORE  STORAGE?  ENTR  1(4)  OR  2 ( - ) * •* 

9410  INPUT  Z9 

9420  GO  TO  Z9  OF  9440,9450 

9430  GO  TO  9400 

9440  GO  TO  9380 

9450  F(F( 100) ) =S9 

9455  REM : ASSIGN  TEMP  i HUM  AT  SURF 

9460  PRINT  ‘LAST  TAG. TEMP  l TAG . HUM=  * i P < 1 , P ( 1 , 400 ) ) ) * S * ) P < 3 • P < 3 , 400 > > 
9470  PRINT  * ON  TO  EXTEND  THESE  VALUES  TO  SURF?  1 (YES)  2 (NO)  — * i 
9480  INPUT  Z9 

9490  GO  TO  Z9  OF  9540,9510 

9500  GO  TO  9460 

9510  PRINT  * ENTR  SURF  TAG . T & TAG . H ( TTTT . TTT . TTTT . HHHH ) - * • 

9520  INPUT  P( 1 ,P( 1 ,400)41 ) ,P(3,P( 3, 400)+l ) 

9525  P < 1, 400 )=P< 1,400 >41 
9530  P ( 3 , 400 ) =P ( 3 , 400 ) +1 
9535  GO  TO  9590 

9540  REM : EXTEND  LAST  T i H TO  SURF  (IF  OPR-SELECTED ) 

9541  FOR  N- 1 TO  3 STEP  2 

9545  IF  INT  < P < N , P ( N > 400 ) ) ) *INT ( F ( F ( 100 ) ) ) THEN  9570 

9550  P ( N , F'(  N , 400 ) 41 ) = INT  ( F ( F ( 1 00 ) ) ) 4P  ( N , P < N , 400 ) ) -INT  ( P < N , P ( N , 400 ) ) ) 

9560  P(N,400)=P(N, 400)41 
9570  NEXT  N 

9590  rem:calc  ALTITUDE. REFRACTIUITY  PROFILE  P ( 2 , N ) 
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9600  REM : SET  SURF  ALT =0 
9610  P ( 2 . 400 ) =P ( 3 . 400  ) 

9620  FOR  N=1  TO  399 
9630  P ( 2 » N ) =0 
9640  NEXT  N 

9650  REM J FETCH  SURFACE  PRES 

9660  09=10000# (F  < F < 100 ) ) -INT < F ( F ( 100 ) ) ) ) 

9670  REM:CALC  LAYER  THICKNESSES  t INT ( F’  < 2 » N > ) CENTIFEET.  V9=B0TT0M  PRES  » 
9680  REM:08  = T0P  PR.  07=A0G  RH.  0 6 = A0G  TEMP.  05=SAT  VAP  PR.  04=THKNS  (M> 
9690  FOR  N=P  ( 3 . 400 ) -1  TO  1 STEP  -1 
9700  REM : FETCH  TOP  PRES 
9710  OS=F ( 100 ) 

9720  08=08-1 

9730  IF  INT  ( F (08)  )<=INT  < P < 3 . N ) ) AND  08>1  THEN  9770 
9740  IF  08>1  THEN  9720 
9742  IF  0801  THEN  9750 

9744  PRINT  'REACHED  END  OF  PRES  FILE  WITH  SNI1  LAYER ( S ) NOT  CALCULATED* 
9746  GO  TO  9940 
9750  LIST  9740 
9760  STOP 

9770  Z9=<  INT  (F'(3.N)  ) -INT  ( F ( 08+1 ) ) ) / ( INT  < F ( 08  ) ) -INT(F  ( VS+1 ) > > 

9780  Z9=Z9#(F(08)-INT(F(08) )-<F ( 08+1 )-INT(F( 08+1 )))) 

9790  08=10000#(F  (08+1  )-INT  (F  (03+1  .>  )+Z9) 

9792  IF  08 <09  THEN  9800 
9794  LIST  9792 

9796  PRINT  'TOP  PR= ' i 08 BOTTOM  PR='509 
9798  STOP 

9800  REM J CALC  AOG  RH 

9810  07  = 500#  (F'(  3.  N) -INT  (F'(3.N)  )+P(3.N+l ) -INT  ( P ( 3 . N+ 1 ) ) ) 

9320  REM : FETCH  AOG  TEMP  06 

9830  09= ( INT ( P ( 3 » N ) ) + INT ( P ( 3 . N+l ) ) )/2 

9840  GOSUB  7000 

9850  06=D8 

9860  REM : CALC  SAT  OAP  PRES  05  USING  06 
9870  GOSUB  15000 

9880  REMJCALC  THICKNESS  04  i INCREMENT  ALTITUDE  INT(P<2«N)) 

9890  04=28. 3# (06+273. 1 6 ) * ( 09#0S ) '0 . 5 

9900  04=04/(0. 18#07#V5+2S.S#( ( 09*08) '0.5-0 . 01#07#05) > 

9910  04= -29 . 263242*04* ( LOG ( 08/1000 ) -LOG  < 09/1000 ) ) 

9?  12  IF  0 4 > 0 THEN  9920 
9914  LIST  9912 

9916  PRINT  ' THKNS= ' . 04 . ' N= 1 . N 
9918  STOP 

9920  P( 2fN)=P(2> N+l )+INT< 100*04/0. 3048+0. 5) 

9925  09=08 
9930  NEXT  N 

9940  PRINT  'WANT  CENTIFT  ALTS  CORRESF'ND ' G TO  HUM  OALUES7  1(  + ).  2(-)  - ' ! 
9950  INPUT  Z9 

9960  GO  TO  Z9  OF  9980.10000 
9970  GO  TO  9940 

9980  PRINT  (?41 : 'FOLLOWING  ARE  LISTS  OF  TAG. TEMP.  ALT  . 0 » TAG. HUM:* 


I 
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9990  PRINT  @41 JP 

10000  REM  J CALC  REFRACTI OITIES  S ADD  TO  ALTS 
10010  FOR  N=  1 TO  F‘  < 3 » 400 ) 

10020  REM : GET  TIME-TAG  D9  FOR  SAMPLE  P(3>N) 

10030  D9  = INT(F'(3,N)  > 

10040  REM : FETCH  TEMP  D3  AT  TAG  D9 
10050  GOSUB  7000 
10060  06  = DS 

10070  REM J CALC  SAT  YAP  PRES  05  FOR  TEMP  06 
10080  GOSUB  15000 

10090  REM : FETCH  PRES  08  MB  FOR  TAG  D9 
10100  08=D9 

10105  IF  P ( 2 » N ) =0  AND  NOP  (2>  400)  THEN  10160 

10110  GOSUB  20000 

10115  IF  08=9999  THEN  10160 

10120  REM J CALC  REFR'Y  N-UNITS*  04 

10125  Z9=1000*  < P ( 3 > N ) - INT < P ( 3 » N > ) ) 

10130  04= (77. 6*08-0. 056*Z9*05)/(D8+273. 16) 

10140  04=04 +3750*Z9*V5/ ( D8+273 . 16 ) "2 
10150  F‘(2fN)=P<2>N)  +04/1000 
10160  NEXT  N 

10170  PRINT  'WANT  P(2.*N)  LIST  OF  ALT . N ? l(  + > OR  2 ( - ) — "5 

10180  INPUT  Z9 

10190  GO  TO  Z9  OF  10220,10230 
10200  GO  TO  10170 

10210  PRINT  @41 : 'FOLLOWING  ARE  LISTS  OF  TAG . T , ALT . N > TAG.H:' 

10220  PRINT  @41  .’P 
10230  GO  TO  21000 

15000  REM : CALC  SAT  OAP  PR  05  MB  FOR  TEMP  06  DEG  C?  Z9=(l-t)/t 
15010  Z9= (l-( 06+273. 16 )/373. 16)/ ( (06+273. 16>/373. 16) 

15020  05=1013. 246*10" (0. 0031233* ( 10" (-3. 491 49*Z9>-1  ) ) 

15030  ZS=(06+273. 16)/ 373. 16 

15040  05=05/(Z3"5.02308*10"(7.90298*Z9)  ) 

15050  05=05/10" ( 1 .3816E-7*( 10"( 11 .344*( 1-Z8)  )-l  ) ) 

15060  RETURN 

20000  REM  .’FETCH  PRES  08  MB  FOR  TAG  D9 

20010  IF  D9=>INT ( F ( 1 ) ) AND  D9<= INT ( F ( F ( 100 ) ) ) THEN  20060 
20020  LIST  20010 

20030  PRINT  * T AG=  * > D9 ) * & IS  OUTSIDE  TAG  RANGE  FOR  PRES  FILE* 

20035  PRINT  1 NON-OAL I D CODE  ' ,9999"  APPLIED  TO  PRES  08  (AT  N=  ' 5 N ? ' ) ' 

20040  08=9999 

20045  GO  TO  20170 

20060  Z9= 1 

20070  Z9=Z9+1 

20080  IF  INT ( F ( Z9 ) ) =>D9  THEN  20140 
20090  GO  TO  20070 

20140  08= ( D9-INT ( F ( Z9- 1 ) ) )/( INT (F(Z9 ) )-INT(F(Z9-l ) ) ) 

20150  08  = 08* (F(Z9) -INT <F( Z9) )-(F(Z9-l ) - INT ( F ( Z9- 1 ) ) ) ) 

20160  08=10000*(F (Z9-1 )-INT (F (Z9-1 ) )+08) 

20170  RETURN 

21000  REM  .’LIST  FT » M » MB » DEG-C * %RH > N > M-UNI TS > G/M3 » D-PT-DEP  » H/ M , N/ M-CLASS 
21002  PRINT  @41  : 
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21004 

21006 

21008 

21010 

21020 

21030 

21040 

21050 

21060 

21070 

21072 

21080 

21110 

21120 

21130 

21132 

21140 

21150 

21170 

21180 

21190 

21200 

21210 

21220 

21230 

21240 

21250 

21280 

21290 

21300 

21310 

21320 

21330 

21340 

21360 

21370 

21360 

21390 

21400 

21410 

21420 

21425 

21430 

21440 

21450 

21455 

21460 

21470 

21480 

21490 

21500 

21510 


PRINT  841  : 

PRINT  @41  :*  ' i * DETAILED  LIST  OF  ATMOSPHERIC  PARAMETERS' 

PRINT  041 J 

PRINT  @4 1 J 1 ALT ( FT ) ALT ( M ) PR(MB)  T(DEG-C)  RH<%)  N-UNITS  'i 
PRINT  @41 J*  M-UNITS  G/M3  D-PT-DEP  N/M  N/M-CLASS* 

Z*=* * 

PRINT  @41 ' ' 

REMJW9=NTH  VALUE  OF  ALT ( FT ) f U8=NTH  VALUE  OF  REFR'Y 
FOR  N= 1 TO  P ( 2 j 400 ) 

W9=0.01*INT ( F ( 2 r N ) ) 

IF  W9  = 0 AND  N<F'  ( 2 > 400  ) THEN  21400 
W8=1000*  < P < 2 > N ) -INT ( P < 2 » N ) ) ) 

REM ! FETCH  PR  OS  MB  FOR  TAG  D9 
D9=INT ( P < 3 > N) ) 

GOSUB  20000 

IF  08=9999  THEN  21400 

REM : FETCH  TEMP  DS  DEG  C FOR  TAG  D9 

GOSUB  7000 

W 1=1 000# ( P ( 3 > N ) - INT ( P ( 3 f N ) ) ) 

GOSUB  21420 

IMAGE6D . X r 6B . X r 5D . DX  > 4D . 2DX ? 5D . DX * 5D . DX • 6D . X t 4D . 2DX > 5D  . DX 
PRINT  @4i:  USING  21 190 J W9 ? 0 . 3048*W9 • 08 » D8> U1 ? W3 » U8+0 . 048#W9r U 
IF  N=P ( 2 j 400 ) THEN  21400 
W7=0.01*INT (P(2»N+1 ) ) 

W6=1000*<P<2»N+1)-INT(P<2»N+1 ) ) ) 

REM : CALC  N/M  GRAD  W5 
W5=  ('  W8-W6  ) / ( W9-W7  ) /O  . 3048 
IF  WSC-O. 07874  THEN  21340 
IF  U5<0  THEN  21320 
U$=*  SUBFR+  ' 

GO  TO  21390 
W$= ' NORML-  ' 

GO  TO  21390 

IF  U5<-0 . 1575  THEN  213S0 
W$='  SF'RF — ' 

GO  TO  21390 
U«=*  TRP ' 

PRINT  @41:  USING  ' 74D  . 4DX  » SA  * J W5  **  W$ 

NEXT  N 
GO  TO  21530 

REM : CALC  ABS  HUM  L ' GRAMS/CUB IC-M  AND  DEW  POINT  DEP  W3  DEG  C 

REM i FIRST  CALC  W2 

06=D8 

GOSUB  15000 

W2=596#10# (P(3>N)-INT ( P < 3 » N ) ) ) *05/ 1013 . 25*373 . 16/<D8+273. 16) 
REMJENTR  SBRT  HERE  IF  W2  IS  KNOWN  S ONLY  W3  IS  WANTED 
REM : NOW  CALC  DEW-POINT  DEP  W3 
06  = D8 

GOSUB  15000 

W 4 = 0 . 0 1 * ( 1000* (P<3>N)-INT<P(3»N) ) ) ) *05 
04  = 05 
06=D8- 1 


1 


2 j U3 


Figure  D-4.  Listing  for  Fourth  File  of  Baroswitch 
Dropsonde  Program  (Page  4 of  10) 


21520  GOSUB  15000 

21530  IF  ABS<U5-W4)<1 ,0E-3*W4  THEN  21560 
21540  06=D8- < 08-06) *(04-W4)/ (04-05) 

21550  GO  TO  21520 
21560  W3=D3-06 
21570  RETURN 
21580  LIST  21600 

21585  PRINT  * IF  WANT  COPY  DISPLAY  t DO  SO  BEFOR  CONTINUING  RUN* 
21590  STOP 

21600  rem:end  of  printout;  will  go  to  plot. 

30000  rem:plot  altitude  profiles  of  TEMP  i HUM 
30005  PAGE 

30010  REMJSELECT  ALT  SCALE 

30011  N= 1 

30012  U0=0 

30014  UO=UO  MAX  INT(P(2»N>) 

30015  IF  U0> INT ( P ( 2 > N ) ) THEN  30020 

30017  N=N+ 1 

30018  GO  TO  30014 

30020  IF  0 ,01*U0>15000  THEN  30050 

30030  U0=1 5000 

30040  GO  TO  30095 

30050  U0=30000 

30095  REM : PLOT  TEMP  AXES 

30100  01  EWF'ORT  5f75r5’95 

30110  WINDOW  -40>30f-500.L'0 

30120  AXIS  5 r UO/ 1 5 > -40  • 0 

30130  MOOE  -40 1 UO 

30140  PRINT  * LHHKFT  * » * TEMP  ( DEG  C)*.*  *..  *RH(%)* 

30150  PRINT  U0/1000X  * . 'HHDROP  # * » N$  * * JHHHHHHH  * ; D 

30160  MOOE  -40r2*U0/3 

30170  PRINT  *Hld*  J2*U0/3000 

30180  MOOE  -40  * UO/3 

30190  PRINT  * HU  * • U0/3000 

30200  MOOE  -40 rO 

30210  PRINT  'HO* 

30220  MOOE  Of -500 
30230  PRINT  * JOti  * 

30240  MOOE  -20f-500 
30250  PRINT  * JUH^OS* 

30260  MOOE  20 f -500 
30270  PRINT  'jOCOti* 

30280  REM J PLOT  TEMPS 
30290  07=1 

30300  FOR  N=2  TO  P<3»400> 

30310  D9= INT ( P ( 3 f N- 1 ) ) 

30320  GOSUB  7000 

30325  D0=0.01*INT(P(2fN-l ) ) 

30330  IF  ABS( 08) >60  OR  00=0  THEN  30390 
30340  MOOE  D8f00 
30 350  D9=INT(P<3f N) ) 

30360  GOSUB  7000 

30365  00=0 . 01  * INT ( P ( 2 f N > ) 
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130370  IF  ABS ( D3 ) >60  OR  D0=0  THEN  30390 
30380  DRAW  D8  r DO 
30390  NEXT  N 
30395  REM : PLOT  HUM  AXES 
30400  VIEWPORT  77rl27r5r95 
30410  WINDOW  Of 100r-500r UO 
30420  AXIS  10rU0/15 
30430  MOVE  Of -500 
30440  PRINT  'JOti* 

30450  MOVE  50f-500 
30460  PRINT  'JHSOK:* 

30470  MOVE  100 f -500 
30480  PRINT  •JUaiOOK’ 

30490  REM : PLOT  HUMS 
30500  FOR  N=2  TO  P<3f400) 

30510  D9=1000*(P(3f N-l )-INT(P(3f N-l ) ) ) 

30515  D0=0.01*INT(P<2fN-l) ) 

30520  IF  D9>100  OR  D0*0  THEN  30570 
30530  MOVE  D9  ? DO 

30540  D9«1000*<P(3»N)-INT(P<3fN) ) ) 

30545  D0=0.01*INT<P<2’N) ) 

30550  IF  D9>100  OR  D0=0  THEN  30570 

30560  DRAW  D9 1 DO 

30570  NEXT  N 

30580  COPY 

30582  COPY 

30584  COPY 

40000  REM i PLOT  ALTITUDE  PROFILES  OF  N-  i M-UNITS 

40050  VIEWPORT  5f75r5*95 

40060  WINDOW  200 r 400  r -500  * UO 

40070  AXIS  20 • UO/1 5 r 200  r 0 

40080  MOVE  200 fUO 

40090  PRINT  ' t£HHKFT ' f * REFR  ' Y ( N-UNI TS ) 1 r ‘ ‘r’M-VNITS* 

40100  PRINT  UO/lOOOf1  ’ f "HldDROP  * 1 « N$  ? 1 JHfciHtiBhIH  * i D 

40110  MOVE  200f2*UO/3 

40120  PRINT  ‘ HH  * f 2*U0/3000 

40130  MOVE  200fU0/3 

40140  PRINT  1 HH 1 f U0/3000 

40150  MOVE  200 fO 

40160  PRINT  1 HO  1 

40170  MOVE  300 f -500 

40130  PRINT  ’JUSOOK' 

40190  MOVE  240  > -500 
40200  PRINT  ‘ JU240K ' 

40210  MOVE  360 1 -500 
40220  PRINT  •Uk^Ot*1 
40230  REM  J PLOT  N-UNITS 
40240  D7= 1 

40250  FOR  N=2  TO  P(2f400) 

40260  D8=1000*(P(2f N-l )-INT(P(2f N-l ) ) ) 

40270  D0«0.01*INT<P<2»N-1> > 

40230  IF  ABS  C DS-600 ) >400  OR  D0=0  THEN  40340 
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40290  MOVE  08  > DO 

40300  08=1000#  ( F'  ( 2 » N ) - INT  ( F'  < 2 , N ) ) ) 

40310  00=0 . 0 1 *INT  < P < 2 , N ) ) 

40320  IF  ABS< 08-600)  400  OR  00=0  THEN  40340 
40330  DRAW  08f00 
40340  NEXT  N 

40350  VIEWPORT  77, 127*5, *5 
40360  WINOOW  300 , 900 , -500 > UO 
40370  AXIS  100, UO/15, 300,0 
40330  MOVE  300,-500 
40390  PRINT  ’JdSOOL’ 

40400  MOVE  600 , -500 
40410  PRINT  * JB600h, 1 
40420  MOVE  900,-500 
40430  PRINT  ’JHH900ii’ 

40440  REM  J PLOT  M-UNITS 
40450  FOR  N=2  TO  P(2»400> 

40460  09=1000* CP< 2 >N-l  ) - I NT ( P ( 2 . N- 1 ) ) ) 

40465  09=09+0. 048*0 . 01* INT ( P < 2 > N-l ) ) 

40467  00  = 0 . 01*INT  < F‘  ( 2 > N- 1 ) ) 

40470  IF  ABS ( 09-600 ) 390  OR  00=0  THEN  40520 
40430  MOVE  09 >00 

40490  09=1000# ( P ( 2 > N ) - INT ( P < 2 > N ) ) ) 

40495  09=09+0. 043*0. 01*INT(P< 2 ,N> ) 

40497  00=0 . 01* INT  (P(2,N> ) 

40500  IF  ABS (09-600)  390  OR  00=0  THEN  40520 
40510  DRAW  09,00 
40520  NEXT  N 

40522  COPY 
40524  COPY 
40526  COPY 

40523  PAGE 

45000  REMSLIST  SIGNIF  LEVELS  (BASED  ON  LINEAR  FIT  OF  T5H  TO  ALT) 

45002  PRINT  @41  J 

45003  PRINT  @41.* 

45005  PRI  @41 :*  ' , 'SIGNIF  LEVS  (T1,H10>  LIST  OF  ATMOSPHERIC  PARAMETERS’ 
45007  PRINT  @41 : 

45010  DELETE  S 
45020  DIM  S(2>9) ,0(9) 

45030  RESTORE  45050 
45040  REA  It  @34JS9.S3»S*0»fi 

45050  DATA  2,0,1 . OE-3 , 0 , -9 . OE+99 , 9 . OE+99 • 0 > 0 , 0 » 0 , 0 , 0 . 01 >0»-9.0E+99 
45055  DATA  9 . OE  + 99 , 0 , 0 , 0 , 0 * 0 , 9 . OE  + 99 , 0 » 0 , 0 , 0 , 0 » 0 > 0 , 0 , 1 
45060  REM : LIST  FT , M , MB , OEG-C , ZRH , N , M-UNITS , G/M3 , D-PT-DEP 
45070  PRINT  04 1 : ’ ALT ( FT > ALT ( M ) PR ( MB  ) T(OEG-C)  RH<%)  N-UNITS  * * 
45080  PRINT  @41 M-UNITS  G/M3  O-PT-OEP’ 

45090  Z$=  ’ * 

45100  PRINT  @4i:z*;z*i’  * 

45110  REM.*W9  = NTH  VALUE  OF  ALT(FT),  W8  = NTH  VALUE  OF  REFR " Y 
45120  FOR  N=P ( 2 , 400 ) TO  1 STEP  -1 
45130  W9=0.01*INT ( P ( 2 , N ) ) 

45150  W8= 1000# (P(2,N)-INT  < P < 2 » N ) ) ) 
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45160  REM : FETCH  PR  03  MB  FOR  TAG  D9 
45170  D9=INT ( F‘  ( 3 * N ) ) 

45180  GOSUB  20000 

45190  IF  08=9999  THEN  45500 

45200  REM J FETCH  TEMP  D8  DEG  C FOR  TAG  D9 

45210  GOSUB  7000 

45220  W 1=1 000* ( P ( 3 * N > - INT  ( F‘ ( 3 • N ) > ) 

45222  REM J CALC  ABS  HUM  W2  i DEW-PT-DEP  U3 
45224  GOSUB  21420 
45230  P9=l . 1+D8/1000 
45240  N9=100*W9+1 .OE-3 

45250  IF  N9= 1 . OE-3  AND  INT ( S ( M * 9 ) ) =0  AND  INT(S(M*2))  0 THEN  45500 

45260  GOSUB  45520 

45270  P9=2+W1/1000 

45280  GOSUB  45520 

45285  IF  N= 1 THEN  45300 

45290  IF  3801  THEN  45340 

45300  S8=0 

45320  IMAGE6D  . X * 6D  . X * 5D  . DX  * 4D  . 2D X * 5D . DX  * 5D  . DX  * 6D . X * 4D . 2DX  * 50 . DX 

45330  PRINT  (341  : USING  45320:0 

45340  0(1) = W9 

45350  0 ( 2 ) =0 . 3048*W9 

45360  0(3) =08 

45370  0(4) =D8 

45330  0(5)=U1 

45390  0(6) =W8 

45400  0(7)=US  + 0. 043*109 

45410  0(3) =W2 

45420  0(9)  =(03 

45500  NEXT  N 

45510  GO  TO  49000 

45520  REM  J FIND  SIGNIFICANT  VALUES 

45530  REM : INPUT  IS  ID-TAGGED  VALUE  P9  * LINEARITY  BASE  N9 
45540  REM  .'INPUT  TOLERANCES  ARE  S ( M » 1 ) 

45550  REM ‘.OUTPUTS:  BASE-TAGGED  VALUES  S(M*2)  WITH  FLAG  SS=1  WEN  SIGNIF 
45560  M= INT ( P9 ) 

45570  REM : CALCULATE  NEW  SLOPE  S(M*5> 

45580  3<M*5)=(P9-INT(P9)-(S(M* 2)-INT(S(M*2> ) ) ) / ( N9- INT i S ( M * 2) > ) 

45660  REM : TEST  NEU  SLOPE 

45670  IF  S ( M * 5 ) =>S ( M » 3 ) AND  S ( M » 5 ) =S ( M , 4 ) THEN  45a92 
45680  REM : NEW  SLOPE  NOT  ON:  SET  FLAG 
45690  S3=l 

45692  REM : UPDATE  LAST  LEVEL 
45694  S(M.8)=S(M>9) 

45696  S(M»9)  = INT (N9)  + (P9-INT (P9)  ) 

45700  IF  M < S 9 THEN  45930 

45720  REM  J FOR  ALL  M>  DECLARE  LAST  VALUE  IF  SIGNIF*  SET  NEW  LIMITS 
45730  FOR  M=1  TO  S9 
45735  IF  S8<>1  THEN  45762 
45740  S(M*2)=S(M*8 ) 

45750  S(M*3)=-9.0E+99 
45760  S ( M > 4 ) =9 . OE  + 99 

45762  REM : CALCULATE  NEW  ACCEPTANCE  SLOPE  LIMITS 
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45764  IF  N9>INT<S(Mf2> > THEN  45772 

45766  S<M»6)»S(M»9)-INT<S<M»9))+S<M.l)-lS<M»2)-INT(S(M»2))) 

45767  S(Mf6)=S(Mf6)/(N9-INT  ( S ( M r 2 ) > ) 

45768  S < M f 7 ) =S  < M r 9 ) - INT ( S < M r 9 ) ) -S ( M f 1 ) - ( S ( M r 2 ) -INT  < 3 < M f 2 ) > > 

45769  S(Mf  7>=S<Mf 7 ) / ( N9-INT ( S < M f 2 > ) ) 

45770  GO  TO  45780 

45772  S(Mf6)=S(Mf9)-INT(S(Mf9))-S(Mf1)-(S<Hf2)-INT(S(Mf2))) 

45773  3(Hf6)=S(Mf6)/(N9-INT(S(Mf2) ) ) 

45774  S(Mf7)=S(Mf9)-INT(S(Mf9) )+S(Mf 1 ) - ( S ( M f 2 ) -INT < S ( M f 2 ) ) ) 

45775  S<Mr7)=S(hr?)/( N9-INT  < S ( M f 2 > ) ) 

45780  REM  I UPDATE  SLOPE  ACCEPTANCE  LIMITS.  START  WITH  TEST  OF  MIN  SLOPE 
45790  IF  S ( M f 6 ) >S  < M f 3 ) THEN  45820 
45800  REMJMIN  ACCEPTABLE  SLOPE  ON  AS  IS 
45810  GO  TO  45840 

45820  REM J UPDATE  MIN  ACCEPTABLE  SLOPE 
45830  S(M.3)=S(Mfo) 

45840  REM : NOW  TEST  MAX  SLOPE 
45850  IF  S(Mf7KS(Mf4)  THEN  45880 
45860  REM : MAX  ACCEPTABLE  SLOPE  O.N.  AS  IS 
45370  GO  TO  45900 

45880  REM : UPDATE  MAX  ACCEPTABLE  SLOPE 
45890  S(Mf4)=S(Mf7) 

45900  NEXT  M 

45901  M-M-l 
45930  RETURN 

49000  REM  I L I ST  ATMOSPHERIC  PARAMETERS  AT  MANDATORY  PRES  LEVELS  Y ( M ) 

49001  PRINT  341 J 

49002  PRINT  341,’ 

49003  PRINT  341 J*  * r ' MANDATORY  LEVELS' 

49004  PRINT  341 : 

49005  PRINT  341J*ALT(FT)  ALT  ( M ) PR(MB)  T(DEG-C)  RH  ('/.)  N-UNITS  ‘ f 

49006  PRINT  341  M-UNITS  G/M3  D-PT-DEP' 

49007  Z%= ' ' 

49008  PRINT  341:Z*fZ*f*  ' 

49010  DIM  Y ( 7 > 

49020  RESTORE  49040 
49030  READ  334IYfM 

49040  DATA  1 000 f 350 . 700 • 500 > 400 » 300 f 250 . 0 
49050  REM : FETCH  SURF  PRES  FROM  ~ ARRAY 
49060  V8= 1 0000# ( F ( F ( 100 ) ) - INT ( F ( F ( 100 > ) ) ) 

49070  REM  J FETCH  TIME-TAG  D9  FROM  F ARRAY  USING  PR  V8 
49080  GOSUB  49370 

4<5090  REM  J USE  TAG  D9  IN  P<3fN)  TO  FIND  N S INTERP  FRACTION  NO 
49095  IF  D9=  1 THEN  49360 
49100  GOSUB  49510 

49110  REM USE  N S NO  TO  GET  ALT  W9  FROM  D(2fN) 

49120  W9=INT  < P ( 2 f N ) ) 

49130  Z9= INT ( P ( 2 f N-l ) ) 

49140  U9=0.01*<U9fN0*(Z9-U9>  ) 

49150  REM  J USE  N S NO  TO  GET  N-UNITS  W8  FROM  P < 2 • N > 

49160  W8=P(2fN)-INT(P(2»N) ) 

49170  Z9=P ( 2 f N- 1 ) -INT  t P ( 2 f N-l ) ) 
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49130  W8= 1 000# ( U3+N0* ( Z9-U8 ) > 

49190  REM : FETCH  TEMP  D8  FOR  TAG  D9 
49200  GOSUB  7000 

49210  REM : USE  N S NO  TO  GET  %RH»  Wi 
49220  W 1=P ( 3 > N ) - INT < P < 3 » N ) ) 

49230  Z9=P(3»N-1)-INT(P<3»N-1 ) ) 

49240  Ul=1000*< U1+N0*< Z9-U1 ) ) 

49250  REM : CALC  ABS  HUM  W2 

49252  V6=D8 
49254  GOSUB  15000 

49256  W2=596*0.01*U1*U5/101 3. 25*373. 16/<D8+273. 16) 

49253  REM  .’CALC  DEU-PT-DEP  W3 
49260  GOSUB  21455 

49270  PRINT  041  .*  USING  45320 : W9 . 0 . 3043*U9 , 03 1 D8  > W1 . W8 . W8+0 . 043*W9 1 U2  » W3 
49280  IF  M>0  THEN  49320 

49290  REM J SURF  PR  DONE.  OMIT  1000  MB  IF  SURF  PR  =1000 
49300  IF  V8> 1 000  THEN  49320 
49310  M=M+ 1 
49320  M=M+ 1 

49330  IF  M=8  THEN  49360 
49340  V8=Y(M) 

49350  GO  TO  49070 

49355  PRINT  ‘END  OF  PROCESSING* 

49360  END 

49370  REM  .'FETCH  TAG  D9  FOR  PR  US 
49380  D9=F ( 100 ) 

49390  Z8= 10000* ( F ( D9 ) -INT  < F ( D9 ) ) ) 

49400  Z9=l 0000* (FCD9-1) -INT (F(D9-1 ) ) ) 

49410  IF  U8<Z9  THEN  49480 
49420  IF  U8<=ZS  THEN  49460 
49430  LIST  49420 

49440  PRINT  *PR  U8  TOO  GREAT  FOR  TABLE  F(  )* 

49450  STOP 

49460  D9= INT ( F ( D9 ) )+INT( ( V8-Z8 ) / ( Z9-Z3 > * < INT ( F ( D9- 1 > )-INT(F(D9) ) ) +0 . 5 ) 

49470  GO  TO  49500 

49480  D9=D9- 1 

49485  IF  D9= 1 THEN  49500 

49490  GO  TO  49390 

49500  RETURN 

49510  REM  .'USE  TAG  D9  10  FIND  INTERP  BASE  N * FRACTION  NO  FROM  P ( 3 > ) 
49520  N=P  < 3 ? 400 ) 

49530  Z8»INT<PC3»N) ) 

49540  Z9=INT(P(3fN-l) ) 

49550  IF  D9<Z9  THEN  49620 
49560  IF  D90Z8  THEN  49600 
49570  LIST  49560 

49530  PRINT  ’TAG  D9  > TABLE  TAGS* 

49590  STOP 

49600  N0= ( D9-Z8 ) / ( Z9-Z8 ) 

49610  GO  TO  49640 
49620  N=N- 1 
49630  GO  TO  49530 
49640  RETURN 
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APPENDIX  E.  PROGRAM  LISTING  FOR  CAPS  DROPSONDE  ANALYSIS 


The  four  program  files  of  cassette  IX,  CAPS  Dropsonde  Analysis, 


are  listed 

in  the  four 

figures  of  this  appendix  as  tabulated 

below. 

Cassette 

Number 

File  on 
Cassette 

Proqram  Name 

Figure 

Number 

IX 

1 

CALIBRATION  AND  ACQUISITION 

E-l 

IX 

2 

REDUCED  FILE  BUILDER 

E-2 

IX 

3 

TEMP,  PRES,  HUM  TABLE  BUILDER 

E-3 

IX 

4 

OUTPUT  REPORT  GENERATOR 

E-4 

W 


100  GO  TO  1000 

110  DELETE  1000,3110 

120  PRINT  ‘SET  HP  AS  ADDR  3 FOR  INPUT.  ENTER  MINUTES  OF  DATA  < <11.0  >• 

130  INIT 

140  Y =0 

160  INPUT  M 

170  M=320*M+160 

ISO  DIM  Z$(2>»T<M)»U*<17)»T*<14) 

185  T =0 

190  PRINT  83 , 32  J 1 PF7G1S1 7 » R * 

200  ON  SRQ  THEN  220 
210  WAIT 

220  FOR  N=1  TO  M 
230  INPUT  (33JU* 

240  T*=SEG(U*, 7,6) 

250  INPUT  835U* 

260  U*=SEG<U*,6,7> 

270  T*=T$SU$ 

280  T(N)=UAL(T$) 

290  NEXT  N 
300  OFF  SRG 

310  PRINT  * F'RS  CR  WEN  RDY  TO  CK  INPUT* 

320  INPUT  Z* 

330  PRINT  T 

360  PRINT  ‘ENTER  1 (REDISPLAY)  OR  2<C0NTINUE>  OR  3 ( ABORT ) * 

370  INPUT  Z* 

380  GO  TO  UAL ( 2% ) OF  310,410,390 
390  PRINT  * RUN  ABORTED* 

400  END 

410  PRINT  ‘PREPARE  TO  STORE  DATA  ON  INTERNAL  TAPE.  ENTER  FILE  NO.' 

420  INPUT  Y 

430  PRINT  ‘WILL  STORE  IN  FILE  * 5 Y J ‘ . ENTER  r WEN  RDY ‘ 

440  INPUT  Z% 

450  IF  Z*=‘+‘  THEN  490 

460  LIST  410 

470  PRINT  ‘RUN  ABORTED" 

480  STOP 

490  FIND  Y 

500  MARK  1,10*(M+1) 

510  FIND  Y 
515  WRITE  M 
520  WRITE  T 

550  PRINT  ‘FILE  WRITTEN’ 

560  END 
1000  PAGE 

1005  PRINT  ‘ REFRACTION  DROPSONDE  DATA  ANALYZER  — NADC  AUTD ‘ 

1010  PRINT 

1020  PRINT  ‘ENTER  PROG  SELECTION  1 OR  2:  1-CAL3AC0  2-ANALYSIS  --  ‘? 

1030  INPUT  Z 

1040  GO  TO  Z OF  2000,3000 
2000  INIT 
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2010 

2020 

2030 

2050 

2060 

2070 

2080 

2090 

2100 

2110 

2120 

2130 

2140 

2144 

2146 

2150 

2160 

2170 

2180 

2181 

2182 

2183 

2135 

2136 
2188 
2189 
2210 
2220 
2432 
2434 
2436 
2438 
2440 
2450 
2470 
2480 
2490 
2500 
2510 
2515 
2520 
2530 
2534 
2536 
2538 
2560 
2570 
2575 
2580 
2582 
2584 
2586 


PRINT  ‘ * , 'CALIBRATION  AND  DATA  ACQUISITION* 

PRINT 

PRINT 

PRINT  'ENTER  DROP  DATE  AND  NUMBER  ( YYMMDD  NN)  --  ’ ) 

INPUT  D,N* 

PRINT  ’ENTER  ZULU  LAUNCH  TIME  ( HHMMSS  > — *5 

INPUT  T $ 

PRINT  ’ENTER  ZULU  SPLASH  TIME  (HHMMSS)  — ’ i 

INPUT  U* 

PRI  ’ENTER  PRESSURE  ALT  AT  LAUNCH  S PRES  AT  SURFACE  ( KFT , MB ) — 
INPUT  PI  > F’2 

PRINT  ’ENTER  SONDE  SERIAL  NO.  ( NNNNNN ) — ’} 

INPUT  S* 

PRINT  ’ENTER  REFERENCE  UOLTAGE  RATIO  — 

INPUT  KO 

PRINT  ’THERM  LOCNINJ  ENTER  KOHMS  AND  DEG  C (RR.RRR  » TT . T)  — ’ ,* 
INPUT  R3 , T3 

PRINT  ’ENTER  HUML  LOCK  IN  RES  IN  KOHMS  (RR.RRR)  — ’) 

INPUT  R4 
DIM  L ( 3 , 6 ) 

PRINT  ’ENT  PRES  COEF  L< 1,1-6)  ’ i 

INPUT  L ( 1 , 1 ) > L ( 1 » 2 ) > L ( 1 r 3 ) » L ( 1 , 4 ) ,L( 1,5) , L ( 1 > 6 ) 

PRINT  ’ENT  PRES  COEF  L(2,l-6)  ‘i 

INPUT  L ( 2 , 1 ) ,L(2,2) , L ( 2 , 3 ) , L ( 2 , 4 ) , L ( 2 , 5 ) ,L(2,6) 

PRINT  ’ENT  PRES  COEF  L(3,l-6)  ’) 

INPUT  L(3fl),L(3,2),L(3,3),L(3,4),L(3,5)«L(3,6) 

PRINT  ’ENTER  OPERATOR-DATE  CODE  ( ABCYYMMDD ) --  ’ > 

INPUT  0* 

PRINT  ’IF  WANT  COPY  OF  THIS  PAGE,  ENTER  + (IF  NOT,  ENTER  -)  -- 

INPUT  Z% 

IF  Z *<>’+*  THEN  2440 

COPY 

PAGE 

PRI  * DATE ( YYMMDD) : ’ } D 5 ' DROP  NO.’fN*»’  SONDE  SER.  NO.  • 

PRINT 

PRI  ’THERM  LOCK-IN:  ’ ;R3J ’ KOHMS  AT  *;T3>’  DEG  C’,’  HUML:  " * R4  ? ’ 
PRINT 

PRINT  ’ ’, ’LAUNCH’ , ’SPLASH* 

PRINT  ’TIME  (HHMMSS) * ,T*,U* 

PRINT 

PRINT  ’PRES.  (KFT, MB) ’ ,P1 • P2 
PRINT 

PRINT  ’PRESSURE  COEFF  OF  ARRAY  L(3,6>  ARE  AS  FOLLOWS:’ 

PRINT  L 
PRINT 

PRINT  ’ ’,0* 

PRINT  ’WANT  CHANGE  CAL  DATA?  ( ENTR+  IF  YES,  - IF  NO):’ 

INPUT  1% 

IF  Z ♦<>’-’  THEN  2584 
GO  TO  2630 

PRINT  ’ ENTR  CHANGE  (EGJPl-NN.N)  THEN  RUN  AFTER  STOP* 

STOP 
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r — — !L 

i 

12588  GO  TO  2440 
2630  COPY 
2632  PRINT  @41 : 

12634  PRINT  @41 : 

2636  PRI  @41 J ‘ DATE ( YYMMBD ) • * r D r * DROP  NO.'fN**'  SONDE  SER . NO.  *?S$ 
2637  PRI  @4 1 i * THER  LOC-IN:  ' f R3» ' NOHNS  @ 1 JT3f'  DEG  C'  r * HUML  J * J R4  J * K ' 
2638  PRINT  341 : 'LAUNCH  ALT  * f F‘l  r ' KFT * r * LAUNCH  PRES  'rP2i'MB* 

263?  PRINT  @41 : 'PRESSURE  COEFF  OF  ARRAY  L(3r6)  ARE  AS  FOLLOWS:' 

2640  PRINT  @41 :L 
2645  PAGE 

2660  PRI  'PREPARE  TO  STORE  CAL  DATA:  NOTE  CASS  NO.  % LOAD  CASS  IN  4051' 
2665  PRINT  'ASCERTAIN  FILE  1 ON  CASS  HAS  SEEN  MARKED  BEFORE  CONTINUING' 

2670  PRINT  'ENTER  CASSETTE  NO.  AND  ADDRESS  OF  CASSETTE  UNIT  (NN)  --  '? 

2680  INPUT  X 
2690  TLIST 

2695  PRINT  'ANY  FILE  * >=  SPECIFIED  * WILL  BE  DESTROYED' 

2700  PRINT  'ENTER  FILE  NO.  FOR  STORING  CAL  DATA  < FF ) — 

2710  INPUT  Z1 
2720  FIND  Z1 
2730  MARK  If  3000 
2740  FIND  Z1 

2750  PRINT  @33:Df N*f T$fU*fPl fP2f S*f T3f R3fR4f Lf KOfO$ 

2755  CLOSE 

2760  PRINT  'CAL  DATA  STORED  IN  FILE  ' fZlf'  ON  CASSETTE  'fXI'  ' ?0$ 

2761  PRINT  'IF  WANT  TO  WRITE  ANOTHER  CAL  DATA  FILE»  ENTER  + (-  IF  NOT)' 

2762  INPUT  Z* 

2763  IF  Z«='+*  THEN  2660 
2765  GO  TO  110 
2990  STOP 

3000  REM  .‘DATA  ANALYSIS  STARTS  HERE 
3010  DELETE  100f2?90 

3020  PRINT  'WILL  READ  DATA  ANALYSIS  PROG  FROM  INTERNAL  CASSETTE  FILE  2* 
3030  PRINT  * ENTER  R WEN  RDY  — ' » 

3040  INPUT  S$ 

3050  IF  S$= ' R * THEN  3090 
3C60  LIST  3020 
3070  PRINT  'RUN  ABORTED* 

3080  STOP 
3090  FIND  2 
3100  APPEND  3110 

3105  REM : FILED  l'N  CASS  3»  FILE  1.  PK-MCW-780216 
3107  REM : MODIFIED  FOR  CONTINUOUS  PRESSURE  SENSOR.  PK-780216 
3108  REM  J MODIFICATION-  ADD  OF  REFERENCE  UOLTAGE  RATIO  <K0>  INPUT 
3110  REM : DATA  ANALYSIS  PROG  WILL  BE  APPENDED  HERE 
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3110  REM  1 THIS  PROGRAM  (FROM  FILE  2)  ASSIGNS  FILE  NOS.  TO  BE  PROCESSED 

3111  DELETE  L 

3112  DELETE  2991.3109 

3113  DIM  L ( 3 . 6 ) 

3114  PR I ‘LOAD  ■•SAFE"  DATA  CASSETTE  INTO  CONSOLE.  ENTER  FILE  NOS.  OF* 
3116  PRINT  ‘CALIBRATION  AND  DATA  FILES  TO  BE  PROCESSED  ( CC  DD>  — ‘5 

311 5 INPUT  Z9 . Z8 

3119  GO  TO  4225 

3120  REM I READ  CAL  FILE 

3121  FIND  Z9 

3122  INPUT  @33  5 D1 » NO  . T1 » T2 . F‘l » F'2 » SO . T3 » R3 . R4  . L . NO 

3123  GO  TO  3260 

3150  REM J LOOKING  FOR  DATA  SPINES 

3151  IF  A ( N9 ) =0  OR  C(N9)=0  THEN  3170 

3152  IF  A ( N9 ) =>C ( N9 ) THEN  3162 
3154  L9=C(N9)/A(N9) 

3156  L8=B(N9)/A(N9) 

3158  L7=B(N9)/C(N9) 

3160  GO  TO  3168 
3162  L9=A(N9 >/C(N9) 

3164  L8=A(N9)/B<N9) 

3166  L7=C(N9)/B(N9) 

3168  IF  L8>L9*1.02  OR  L7C1/L9/1.02  THEN  3174 

3170  L9= 1 

3172  GO  TO  3176 

3174  L9=2 

3176  RETURN 

3260  PRINT  ‘ENTER  TIME  INTERVAL  (SEC.)  FROM  LAUNCH  TO  XMITTER  ON  — ‘5 

3262  INPUT  TO 

3264  PRI  ‘FOR  AUTOCOPY  SF'AGE  . ENTER  15  AUTOPAGE  ONLY  . 25  NEITHER . 3 — •} 
3266  INPUT  S9 

3268  GO  TO  S9  OF  3274.3280.3286 
3270  END 

3272  REM  I WRITTEN770415 . L0ADED7705O4  . DEBUGGED770505  » INTEGRA  TED 77 0705  MCW 
3274  REM : START  HERE  FOR  AUTOCOPY SPAGE 
3276  PRINT  @32 . 26: 3 
3278  GO  TO  3290 

3280  REM  J START  HERE  FOR  AUTOF'AGE 
3282  PRINT  @32.2612 
3234  GO  TO  3290 

3286  REM  1 START  HERE  FOR  MANUAL  COF'Y SPAGE 
3238  PRINT  @32.2610 

3290  REM : READ  S UNPACK  DATA  FROM  FILE 
3292  DIM  A(4> » B(4) »C(4> ,0(4) 

3294  RESTORE  3298 

3296  READ  @34 1 T9 » T8  > T7  > T6 » A » B . C » D 

3298  DATA  0. 0. 0.1. O.O.O.O.O.O. 0.0. 0.0.0. 0.3.0E- 5»3«0E  — 5.1 *0E-3»2.0E—  5 
3300  REM: INITIALIZE  FOR  GETTING  SIG  PER  RATIOS  USING  SIG  LEV  SUBRT 
3302  DIM  P(3.400> .S(3.8> 

3304  FOR  19=1  TO  3 
3306  FOR  18=1  TO  400 
3308  P(I9,I8>=0 
3310  NEXT  IS 


iAI 
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3312  NEXT  I? 

3314  RESTORE  3318 

3316  READ  034 J P < 1 , 400 ) . P ( 2 t 400 ) > P ( 3 . 400 ) » S 

3318  DATA  0 . 0 . 0. 0 . 007 . 0 , -9 . 9E+99 . 9 . 9E+99 . 0 . 0 . 0 . 0 . 0 . 007 . 0 > -9 . 9EF99 
3320  DATA  9 . 9E  + 99 , 0 . 0 » 0 . 0 . 0 . 008 . 0 * -9 . 9E  + 99 » 9 . 9E  + 99 . 0 . 0 > 0 . 0 
3322  PRINT  'SELECT  DATA  SOURCE : 1 "PACKED  FILE..  2=R£DUCED  FILE  — ' f 

3324  INPUT  S9 

3326  GO  TO  S9  OF  3346.3330 
3328  STOP 

3330  PRINT  'PUT' 'SAFE  "CASS  (FILE  23=P  ARRAY)  IN  4051.  ENT  R WN  RDY  - ' i 

3332  INPUT  SS 

3334  IF  S*=*R"  THEN  3338 

3336  GO  TO  3330 

3338  DIM  P( 3.400) 

3340  FIND  23 

3342  READ  033 JP 

3343  PRINT  ' CK  S CORRECT  P(M.N).  THEN  "RUN  (LINE  * AFTER  STOP)".' 

3344  STOP 

3345  GO  TO  3382 

3346  FIND  ZS 
3348  READ  033 IZ7 
3350  Z6=0 

3352  Z6=Zo+ 1 
3354  READ  033 :Z0 
3356  GO  TO  3360 
3358  PRINT  041JZ6.ZO5 

3360  REM : UNPACK  FIRST  HALF  ZO  TO  GET  PERIOD  Z1 

3362  Z1=INT(Z0)/1 .OE+3 

3364  REM : PROCESS  UNPACKED  VALUE 

3366  GOSUB  3384 

3368  REM J UNPACK  S PROCESS  SECOND  PERIOD 
3370  Z1=(Z0-INT (ZO) )/100 
3372  GOSUB  3384 

3374  REM  J WAS  THIS  WORD  THE  LAST  IN  FILE? 

3375  REMJSEU  SEC  PRE-LAUNCH  DATA  MUST  BE  IN  PACK  FILE  FOR  SURF  VALUE 

3376  IF  Z6=Z7  THEN  3378 

3377  GO  TO  3352 

3378  T9=T9+4 

3379  A=0 

3380  GOSUB  3498 

3381  PRINT  'LAST  ENTRY  HAS  BEEN  READ  FROM  PACKED  DATA  FILE’ 

3382  GO  TO  3975 

3383  GO  TO  4195 

3384  REM : TESTING  S MAINTAINING  SYNC 

3385  REM : T9  SAMPS  ENTERED  STACK  SINCE  LAUNCH.  T3=LAST  REF  TAG 

3386  IF  T9=0  THEN  3512 

3388  GO  TO  T6  OF  3396.3406.3406.3466 
3390  LIST  3338 
3392  PRINT  'T6=';T6 
3394  STOP 

3396  REM  J CYCLE  SHIFT 
3398  AO=A ( 4 ) 


I 
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3400  A=B 
3402  B=C 
3404  T9=T9+4 

3406  IF  Z1>1/L1  AND  ZK1/L0  THEN  3440 
3408  IF  ZKM/L2  AND  ZlOi/Li  THEN  3416 

3410  REMJZl  NOT  DATA  AND  NOT  REF.  APPLY  NON-VAL ID  TAG  (.1) 

3412  Z1=0.1+Z1 
3414  GO  TO  3440 

3416  GO  TO  T 6 OF  3420 > 3426 > 3432 > 34 1 8 

3418  STOP 

3420  C ( 1 ) =0 . 99999 

3422  T6=T6+ 1 

3424  T7=T7+1 

3426  C ( 2 ) =0 . 99999 

3428  T6=T6+1 

3430  T7=T7+1 

3432  C<3)=0. 99999 

3434  T6=T6+1 

3436  T7=T7+ 1 

3438  GO  TO  3384 

3440  GO  TO  T 6 OF  3443 > 3454 > 34*0 , 3466 

3442  LIST  3440 

3444  PRINT  •T6=,?T6 

3446  STOP 

3448  C(1)=Z1 

3450  T 6 = 2 

3452  GO  TO  3592 

3454  C (2) =Z1 

3456  T 6=3 

3458  GO  TO  3592 

3460  C ( 3 ) =Z1 

3462  T 6 = 4 

3464  GO  TO  3592 

3466  IF  Zl=>l/L2  AND  ZlOl/Ll  THEN  3482 

3468  REM : REF  EXPECTED  BUT  MISSING!  ADD  SYNC-LOSS  TAG  . 99  TO  D D DR  SAMPS 
3476  C ( 4 ) =Z1 

3478  C=0 . 99+C 

3479  GO  TO  3484 

3482  T8=T9+T7 

3483  C ( 4 ) =Z 1 

3484  T6=l 

3485  PRINT  * T9 , T7 » T3= 1 » T9 . T7 > TS 

3486  PRINT  • B= * !T9+T7-7  + B< 1 ) . T9  + T7-6  + B(2) f T9  + T7-5  + B(3) * T9  + T7-4  + Bi 4 > 
3488  REM : RESTORE  CYCLE  IN  ARRAY  B*  IF  NEEDED 

3490  GOSUB  3594 

3492  REM! CALCULATE  PERIOD  RATIOS  IN  ARRAY  A 
3494  GOSUB  3664 

3496  PRINT  (?41  1A<  1 ) >A<2)  >A(3)  »T9  + T7-8  + A(4) 

3498  REM  J SCAN  ARRAY  A i DETECT  SIG  RATIOS 
3500  FOR  N8= 1 TO  3 
3502  P9=N8+A ( N8 ) 
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3504  N9=T9+T7-12+N8 
3506  GOSUB  3695 
3508  NEXT  N8 
3510  GO  TO  3592 

3512  REM : LOOKING  FOR  FIRST  SYNCHRONIZED  CYCLE 
3514  GO  TO  T 6 OF  3516 1 3522 > 3522 > 3522 > 3532 
3516  REM J IS  Z1  A REF  SIGNAL? 

3518  IF  Zl=>l/L2  AND  ZlOl/Ll  THEN  3536 

3520  GO  TO  3588 

3522  REM : IS  Z1  A DATA  SIGNAL? 

3524  IF  Z101/L1  AND  ZlOl/LO  THEN  3542 
3526  PRINT  ’FALSE  START.  T6=’;T6 
3528  T6= 1 
3530  GO  TO  3512 

3532  IF  Zl=>l/L2  AND  Z1<=1/L1  THEN  3566 

3534  GO  TO  3526 

3536  T 6=2 

3538  B ( 4 ) =Z 1 

3540  GO  TO  3588 

3542  GO  TO  T6  OF  3544 » 3548 r 3554 r 3560 t 3544 

3544  LIST  3542 

3546  STOP 

3548  T 6=3 

3550  C(1)=Z1 

3552  GO  TO  358S 

3554  T 6 = 4 

3556  C<  2) =Z1 

3558  GO  TO  3588 

3560  T 6=5 

3562  C ( 3 ) =Z1 

3564  GO  TO  3588 

3566  REM.'T?  IS  NO.  OF  SAMPS  TO  'ENTER*  STACK  SINCE  LAUNCH 

3568  T9=T0*10+8 

3569  T8=T9 

3570  T 6= 1 
3572  C ( 4 ) =Z1 

3574  PRINT  Z6+T7+Z1 
3576  PRINT 

3578  PRINT  ’LAST  5 SAMPS  ARE  FIRST  CYCLE  PASSING  RD DDR  RANGE  TEST’ 
3580  PRINT 

3582  PRINT  ’REF  STARTING  1ST  SYNC  CYCLE  (TIME-TAG  + PER):  ’»T9-4+B<4) 
3534  PRINT  ’ FOLLOUING  SAMPS  ARE  OUTPUT  FROM  SYNC  TEST  i MAINTENANCE’ 
3586  GO  TO  3592 

3588  REM  J PRINT  FILE  ENTRY  N0.(Z6)  & PERIOD 
3590  PRINT  Z6  + T7  + Z1  i ’ *i 

3592  RETURN 

3594  REM  * VALIDATE  DATA  IN  ARRAY  C USING  LIMITS  IN  D 
3596  FOR  N9= 1 TO  4 

3598  GO  TO  N9  OF  3606 » 3600 > 3604 , 3606 
3600  D(2)=400*D(2> 

3602  GO  TO  3606 
3604  D<2)=D(2)/400 


I 
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3606  IF  ABS(A(N9)-C(N9> ><D<N9)  OR  ABS ( B ( N9 ) -C ( N9 ) ) <D ( N9 ) THEN  3610 
3608  FRINT  * C ( ' i N9  i ' ) FAILS  VAL  TEST . TIME-TAGGED  PER . = 1 5 T9+T7-4+N9+C < N9 ) 
3610  NEXT  N9 

3612  REM  .‘RESTORE  DATA  IN  ARRAY  B 

3613  N8=0 

3614  FOR  N9=l  TO  4 

3615  IF  N9<>3  THEN  3619 

3616  IF  A(N9)/B(N9)<1 .02  AND  A < N9 ) /B < N9 ) >0 . 980392  THEN  3642 

3617  GOSUB  3150 

3618  GO  TO  L9  OF  3642,3628 

3619  IF  ABS ( A ( N9 ) -B ( N9 ) ) <D ( N9 ) THEN  3642 

3620  REM ! B < N9 ) NOT  ON.  CAN  C(N 9)  BE  USED  TO  RESTORE7 
3622  IF  ABS ( A ( N9 ) -C ( N9 ) ) CD < N9 ) THEN  3628 

3624  REM:C(N9)  NOT  OK  FOR  RESTORATION 

3626  GO  TO  3642 

3628  REM  1 RESTORE  B(N9) 

3630  PRINT 

3632  PRINT  'RESTORED  PACK-WORD'*  * f Z6-1  ? ' FROM  * i T9+T7-8+N9+B  ( N9  ) ; * TO  *? 

3634  B(N9)=(A(N9)+C(N9) )/2 
3636  PRINT  T9+T7-8+N9+B < N9 > 

3638  PRINT 
3640  GO  TO  3646 

3642  RLMJNO  RESTORATION.  INCREMENT  COUNT  OF  NON-RESTORED  SAMPS  ( N8 ) 

3644  N8=N8+1 

3646  NEXT  N9 

3648  IF  N8<4  THEN  3652 

3650  GO  TO  3660 

3652  PRINT 

3654  PRINT  ‘RESTORED  CYCLE  FOLLOWS:' 

3656  PRINT  T9+T7-7+BC1) » T9+T7-6+B ( 2 ) . T9  + T7-5  + B ( 3 > » T9+T7-4+B ( 4 ) 

3658  PRINT 
3660  N8=0 
3662  RETURN 

3664  REM  * CALCULATE  PERIOD  RATIOS  IN  ARRAY  A 
3666  IF  A ( 1 ) =0  AND  A(2)=0  AND  A(3)=0  THEN  3690 

3668  IF  A0*>l/L2  AND  AOOl/Ll  AND  ABS < AO-A < 4 ) ) <D < 4 > THEN  3676 

3669  C ( 1 ) =0 . 999 

3670  C ( 2 ) =0 . 999 

3671  C < 3 ) =0 . 999 

3672  PRINT  (?4i:'TAGS  ' i T9+T7-13  » ' i ' i T9  + T7-9  f ' FAIL  REF  COMP;  ADD  . • 

3674  GO  TO  3690 

3676  FOR  N9=l  TO  3 

3678  IF  A ( N9 ) <1/L0  THEN  3636 

3680  LIST  3678 

3682  PRINT  ’A(N9)=  *;A<N9) 

3686  A(N9)  = (A0*(4-N9)+A(4)*N9)/(44tA(N9)  ) 

3688  NEXT  N9 
3690  RETURN 

3695  REM  * THIS  SBRT  MODIFIED  TO  MAKE  ENTIRE  LEVEL  SIG  IF  ANY 
3700  REM : ON  THAT  LEVEL  ARE  SIG-  PK-780310 

3705  REM : I NPUT  IS  ID-TAGGED  PERIOD  RATIO  P9  AT  TIME  N9  (SAMPLE  NO.) 

3710  REM: INPUT  TOLERANCES  ARE  S(M»1> 

3715  REM : OUTPUTS  ARE  TIME-TAGGED  SIGNIFICANT  LEVELS  P(M.N> 

3720  REMJP(M,400)  IS  NO.  OF  SIGNIF  LEVS  STORED 
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3980 

3985 

3990 

3995 

4000 

4005 

4010 

4015 

4020 

4025 

4030 

4035 

4037 

4038 
4040 
4045 
4050 
4055 
4060 
4065 
4070 
4075 
4080 
4085 
4090 
4095 
4100 
4105 
4110 
4115 
4120 
4125 
4130 
4135 
4140 
4145 

4147 

4148 
4150 
4155 
4160 
4165 
4170 
4175 
4180 
4185 
4190 
4195 
4200 
4205 
4210 
4215 


remjdata  continuity  testing  and  restoration 

REM:E9  = RATI0  RATE  LIMIT,  £8  = TEMF‘  RATE  LIM,  E7  = F'RES  LIM  E6=HUM  lim, 
REM:E5=RATI0  RATE,  E4=THIS  TAG-RATIO,  E3-P0INTER  TO  LAST  CON  RATIO 


PRINT  * TO 
INPUT  S* 

IF  S*<>*+’  THEN  4030 

PRINT  @41  : ’TIME-TAGGED  PERIOD  RATIOS  BEFORE  GAP  PROCESSING* 
PRINT  @41 JP 

PRINT  ’CK  DATA  LIST  1 MAKE  NEEDED  CHANGES  BEFOR  CONTINUING 
STOP 

DIM  P ( 3 , 400 ) , R ( 3 ) 

RESTORE  4045 

REM5E8,E7,E6  ARE  ALLOWED  T,P,H  TRENDS-  RAT  OF  RAT  PER  FRAME 

REM  JR  IS  * OF  T-TAGS  OF  TREND  = NOISE 

READ  @34  J E8 , E7 , E6 , R 

DATA  1.003,1.003,1.32,14,14,3.3 

FOR  M= 1 TO  3 


LIST  PER.  RATIOS  BEFOR  GAP  PROC'G,  ENTR 


’ THEN  4030 

5 ’TIME-TAGGED  PERIOD  RATIOS  BEFORE  GAP  PROCESSING’ 

:p 

DATA  LIST  1 MAKE  NEEDED  CHANGES  BEFOR  CONTINUING  RUN' 


PRINT 


, ’START  M=  ’ i M 


4090 


E9=E8 

GO  TO  4090 
E9=E7 

GO  TO  4090 
E9=E6 

REM  J FIND  FIRST  RATIO  IN  EXPECTED  RANGE 
N=  1 

E3=P(M,N) 

IF  E3- INT  ( E3 ) >0 . 1 AND  E3-INT  (E3X0.95  THEN  4120 
N=N+ 1 

GO  TO  4100 
E3=N 
N=N+l 
E4=P(M,N) 

E5= ( E4-INT ( E4  ) ) / ( P ( M , E3 ) -INT ( P ( M , E3 ) ) ) 

E5=E5"(4/< INT(E4)-INT(P(M,E3) )+R(M) ) ) 

IF  E5<E9  AND  E5>l/E9  THEN  4290 
GO  TO  4150 

PRINT  @41 J ’INVALID  SAMPLE  - *»E4 

REM  .'RATIO  CHANGE  IS  EXCESSIVE.  FIND  NEXT  RATIO  WITHIN  CHANGE  LIMIT 
PRINT  ’ ’ , ’ E5= ' i E5 
S 9 = I N T ( P < 1 ,P( 1,400)  ) ) 

Z9=INT <P(3,F‘ (3,400)  ) ) 

IF  M=3  AND  INT ( E4  ) >S9  AND  Z9-INT ( E4 X20  THEN  4180 
GO  TO  4190 

PRINT  ’BAD  HUM  PAST  TEMP  END  l WITHIN  2 SEC  OF  HUM  END’ 


PRINT 


PAST  TEMP 


GO  TO  4245 

IF  N<P ( M , 400 ) THEN  4375 

rem:  trap  after  statement  3120 

PRINT  ’LOOK  AT  P(M,400)'S,  ARE  THEY  01 
STOP 

GO  TO  3122 

PRINT  ’REACHED  END  OF  FILE  PCiMCN). 


THEY 


LAST 


SAMF'=  ’ 5 P < M , E 3 ) 
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3725  M=INT<P9> 

3730  REM J CALCULATE  NEW  SLOPE  S(M>5) 

3735  S < M » 5 ) = ( P9-INT (P?)-(S(M»2)-INT ( S ( M » 2 ) ) ) ) / ( N9- 1 NT ( S < M . 2 ) ) ) 

3740  REM  l TEST  NEW  SLOPE 

3745  IF  S ( M > 5 > OS ( M » 3 ) AND  S < M » 5) <=S < M » 4 ) THEN  3325 
3750  FOR  M9=l  TO  M 

3755  IF  P( M9 » P ( M9 1 400 ) +1 ) <>0  THEN  3315 

3760  REM  J NEW  SLOPE  N , G . > STORE  SIGNIFICANT  8 LAST  VALUE  ? EXPAND  LIMITS 
3765  S ( M9  ? 2 ) =S ( M9  > 8 ) 

3770  IF  P ( M9 1 400 ) <399  THEN  3790 
3775  LIST  3770 
3780  STOP 

3790  PRINT  @4i:‘  •>*  *»*  M=*?M9i*  S . L . = ‘ f S < M9 , 2 > 

3795  P < M9»  P( M9 » 400 ) +1 ) =S ( M9 • 2 ) 

3805  S(M9,3)=-9.0E+99 
3810  S(M9» 4>=9.0E+99 
3315  NEXT  M9 

3820  GO  TO  M OF  3970 » 3970 , 3832 
3825  IF  P(l>  P(lf  400)  +1)  00  THEN  3750 

3830  IF  M=3  THEN  3835 

3831  GO  TO  3970 

3832  FOR  M9= 1 TO  3 

3833  F'(M9>400)=P(M9»400)+1 

3834  NEXT  M9 

3835  FOR  M9~ 1 TO  3 

3840  REM i NEW  SLOPE  O.K.!  SHRINK  ACCEPTANCE  SLOPE  LIMITS  IF  NEEDED 
3845  IF  N9>INT(S(M9,2) ) THEN  3875 

3850  S ( M9  * 6 ) =A  < M9  ) - INT  < A < M9 ) ) + S < M9  ■>  1 ) - < S ( M9  > 2 ) - 1 NT  ( S ( M9  r 2 ) ) > 

3855  S(M9f6)=S(M9,6)/(N9  + M9-3-INT(S(M9f 2)  ) ) 

3860  S(M9f7)=A(M9)-INT (A(M9) ) -S ( M9  > 1 )-(SCM9>2)-INT ( S ( M9 • 2 ) ) ) 

3865  S(M9?7)=S(M9f7)/(N9  + M9-3-INT(S(M9>2) ) ) 

3870  GO  TO  3895 

3875  S<M9,6)=A<M9)-INT< A(M9) )-S(M9r 1 ) - < S < M9 , 2 ) - 1 NT < S < M9 . 2 ) ) ) 

3880  S(M9»6)=S(M?» 6)/(N9+M9-3-INT(S(M9f 2) ) ) 

3885  S(M9, 7)=A(M9)-INT(A(M9) )+S(M9, 1 > - ( S ( M9 » 2) -INT ( S ( M9 » 2) ) ) 

3890  S(M9,7)=S(M9,7)/<N9  + M9-3-INT(S(M9,2>  ) ) 

3895  REM : TEST  MIN  SLOPE 
3900  IF  S<M9» 6)>S(M9» 3)  THEN  3915 
3905  REM J MIN  ACCEPTABLE  SLOPE  OK  AS  IS 
3910  GO  TO  3925 

3915  REM  J UPDATE  MIN  ACCEPTABLE  SLOPE 
3920  S ( M9  f 3 ) =S  < M9  r 6 ) 

3925  REM  5 TEST  MAX  SLOPE 

3930  IF  S < M9  f 7 ) <S  < M9 » 4 ) THEN  3945 

3935  REM : MAX  ACCEPTABLE  SLOPE  O.K.  AS  IS 

3940  GO  TO  3955 

3945  REM : UPDATE  MAX  ACCEPTABLE  SLOPE 
3950  S ( M9  r 4 ) =S ( M9 • 7 ) 

3955  REM ! ACCEPTANCE  SLOPE  LIMITS  UPDATED?  NOU  UPDATE  LAST  LEVEL 
3960  S(M9, 8)=N9+M9-3+(A(M9)-INT(A(M9) ) ) 

3965  NEXT  M9 
3970  RETURN 

3975  REM • ARRAY  OF  SIGNIFICANT  PERIOD  RATIOS  HAS  BEEN  BUILT. 
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t a 


4350 

4355 

4360 

4365 

4370 

4375 

4380 

4385 

4390 

4395 

4400 

4405 

4407 

4410 

4415 

4420 

4425 

4430 

4435 

4440 

4445 

4450 

4455 

4460 

4750 


GO  TO  4245 
L0=200 
LI = 1 925 


L2=1975 


GO  TO  3120 

PRINT  ‘FOLLOWING  SAMPS  BEING  DELETED. 
N=E3 


N = N+ 1 

PRINT  * '?•  * » P ( M » N ) 


P ( M f N ) =0 

IF  N=P ( M f 400 ) THEN  4280 
GO  TO  4255 


P < M > 400 ) =E3 
GO  TO  4375 

REM ! RATIO  CHANGE  IS  WITHIN  EXPECTED  LIMITS 
REM : IS  DATA  TAGGED  ‘NO  GOOD* 

IF  E4-INT ( E4 )>0 . 99  OR  E4-INT < E4 ) <0 . 05  THEN  4148 
IF  E3*N-1  THEN  4370 

IF  INT (E4)-INT <F’(M»E3)  ) <21  THEN  4320 
LIST  4300 

PRINT  ‘DATA  GAP  EXCEEDS  2 SEC.  SHOULD  IT  BE  RESTORED? ’ 
STOP 

PRINT  ‘DATA  GAP  <2  SEC  BEING  RESTORED' 

PRINT  ‘PRE-GAP  VALUE  =‘JP(M»E3; 

E3=E3+1 

PRINT  ‘P< ‘ fM» ‘ f ‘ i£3f  ‘ ) CHANGED  FROM  ‘ JP(M,E3)f‘  TO 
E2=E5"  ( ( INT ( P ( M»  E3 ) ) - INT  ( P ( M > E3- 1 ) ) )/10) 

P ( M > E3 ) = INT ( P ( M r E3 ) ) + (P(M»E3-l ) -INT ( P ( M > E3- 1 > ) ) *E2 
PRINT  P ( M ? E3 ) 

IF  E3=N- 1 THEN  4365 
GO  TO  4330 

PRINT  ‘POST-GAP  RATIO  = ‘}p(MfN> 

E3  = N 


IF  N*>P ( M t 400 ) THEN  4385 
GO  TO  4125 

PRINT  ‘ ‘ t ‘END  M=* )M 

NEXT  M 

PRINT  ‘TO  LIST  PER.  RATIOS  AFTER  GAP  PROC'Gt  ENTR  “ + “ — 

INPUT  S* 

IF  S$<>*+‘  THEN  4420 
PRINT  341 : 

PRINT  @41 : ‘ PERIOD  RATIOS  AFTER  GAP  PROCESSING* 

PRINT  @41  JE- 
ST OP 

REM  J NOW  IMPORT  SOFTWARE  FOR  PROCESSING  DATA  FROM  ARRAY. 

PRI  ‘LOAD  ‘ ‘ SAFE  * ‘ PROG  CASS  IN  INTERNL  UNIT.  ENTR  R WEN  RDY  — ■» 
INPUT  S* 

IF  S*=‘R‘  THEN  4450 
GO  TO  4430 
FIND  3 

DELETE  1 00 1 4445 
APPEND  4750 

REM  .‘PROG  FILE  3 GETS  APPENDED  HERE 
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4750  REM J THIS  PROG  FROM  FILE  3 APPENDS  TO  END  OF  PROG  FROM  FILE  2 
4752  REM : ANALYZE  DATA  FROM  INTERNAL  FILE 
4754  DELETE  100,4749 

4756  PRINT  ‘SELECT  APP  HUM  SBRT ( 1 = INTERP  > 2=EQN ) — ' f 
4758  INPUT  FO 

4760  REM : CALCULATE  MB  PRESSURE  < 09 ) AT  LAUNCH  ALT 

4762  REM J INPUTS-  PRESSURE  ALT  PI  ( KFT ) > SURFACE  PRESSURE  P2  (MB) 

4763  GO  TO  4770 

4764  09=  < P2~0 . 1 90263-0 . 0256553*P1 )~5. 255883 
4766  PRINT  ‘CALC  PRES  FROM  ALT=  * fQ9f  MB* 

4768  PRINT  041.* ‘CALC  PRES  FROM  AL  T=  ‘ ,09,  ’ MB* 

4770  PRINT  ‘OPR-ENTERED  EST  OF  SURF  PRES=  *?P2»'  MB’ 

4772  PRINT  04 1 J * OPR-ENTERED  EST  OF  SURF  PRES-  ' »P2J  ' MB* 

4774  PRINT  'ENTER  EST  OF  VOLT  REG  TEMP  T4  — ■ ,* 

4776  INPUT  T 4 

4778  PRINT  041J'T4  = "IT4J*  DEG  C* 

4779  GO  TO  8530 

5500  REM  J CALCULATE  TEMPS.  T9  = RES  RATIO,  T3=THIS  APPARENT  TEMP,  T7  = LAST 

5502  REM : APP  TEMP,  T6=THIS  TIME,  T5=LAST  TIME 

5503  PRINT  ‘STARTING  TEMP  CALCS* 

5504  GO  TO  5522 

5505  REM : LAG  COMP  BEING  SKIPPED  FOR  NOW 

5506  REM  J JO  i J1  ARE  LAG  COMP  FACTORS  FOR  TEMP  $ HUM  RANGING  0 TO  1 

5508  RESTORE  5509 

5509  DATA  -99,0,0 

5510  READ  (?34:T9,  JO,  J1 

5511  PRINT  'COMPS  SET  AT  TJ'rJOi'  S Hf'JJlJ',  WANT  CHANGE7  (1+/2-)  - *? 

5513  INPUT  Z9 

5514  GO  TO  Z9  OF  5516,5520 

5515  GO  TO  5511 

5516  PRINT  * ENTR  COMP  SETTINGS  IN  RANGE  0-1  (NONE-FULL)  (T.TT  H . HH ) - * i 

5517  INPUT  J0,J1 

5518  GO  TO  5511 

5520  PRINT  041 5*  LAG-COMP  LEVELS  ARE  SET  TO  Tl'iJO?'  % H J * 5 J 1 

5522  FOR  N= 1 TO  PC  1,400) 

5523  T9=P( 1 ,N)-INT (P( 1 ,N) ) 

5525  T6= INT ( P ( 1 , N ) ) 

5530  IF  T9>0 . 1 THEN  55o0 

5550  GO  TO  5640 

5560  REM : CALCULATE  RES  RATIO 

5562  REMJ  WILL  BYPASS  THER  RES  RATIO  CALC  FOR  BAROSWITCH  DROPSONDE 

5563  GO  TO  5568 

5565  T9=(52.718/T9-47.718)/R3 
5568  T9=22. 1*< 1/(K0*T9)-1 )/R3 
5570  REM J CALCULATE  APPARENT  TEMP 

5575  T8=65. 3/ (l-SQRC 1-0. 048092 1 *LOG ( T9/3 . 3785E-4 ) ) ) -273. 16 
5580  P( 1 ,N)=INT(P( 1 ,N) )+T8/ 1000+0. 1 
5534  GO  TO  5590 

5585  PRINT  'TIME-TAGGED  APPARENT  TEMP ( M I LL I DEG  C)-'»P(1,N) 

5590  IF  T7>-70  THEN  5615 
5600  LIST  5590 
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5610  STOP 
5615  GO  TO  5670 

5620  REMJLAG-COMP  OF  TEMP i JO-COMP-LEVEL  SETTING  (0-1 : NONE-FULL) 

5630  Z9= INT ( (T6+T5)/2+0.5) 

5632  P<1 .N-l)=Z9+0. 1+1 .0E-3*< ( T8+T7 >/2+ < T8-T7 ) / ( T6-T5 ) *20* JO ) 

5634  GO  TO  5640 

5635  PRINT  1 TAG : * i INT ( P ( 1 . N ) ) . ' LC  TEMP J ■ » ( P ( 1 . N ) -INT ( P ( 1 . N )) -0 . 1 ) *1000 
5637  PRINT  1000* ( P < 1 * N-l ) -INT ( P < 1 . N-l )) -0 . 1 ) 

5640  T7=T8 
5650  T5=T6 

5670  NEXT  N 

5671  GO  TO  5700 

5672  P< 1 »P( 1 >400) )=0 
5674  P( 1 . 400)=P( 1 »400>-l 
5680  PRINT  'END* 

5690  STOP 

5700  PRINT  'STARTING  PRES  CALCS' 

5705  REM:  OVERLAY  P ( 2 » N ) ARRAY  WITH  PRES  VALUES 
5710  D7=  1 

5720  FOR  N= 1 TO  P(2.400> 

5730  D9-INT ( P ( 1 » N ) ) 

5740  D8= (P ( 1 • N ) -0 . 1 -D9 ) *1 000 
5745  IF  08=999  THEN  5764 
5750  GOSUB  8750 
5760  P<  2 » N ) =09+1 +P5/1 0000 

5763  GO  TO  5765 

5764  P<2»N)=INT(P<2.N> ) +0.9999 

5765  NEXT  N 

5770  PRINT  'ENO  OF  PRES  CALC 

6000  REM : OVERLAY  P < 3 * N > ARRAY  WITH  COMP  HUM  VALUES. 

6020  REM:C9=LAST  APP  HUM.  C8=LAST  APR  HUM  TIME-TAG.  C7=MEAN  APR  HUM 
6040  REM:C3=MEAN  TAG.  C5=  APP  HUM  RATE.  C4=THIS  APP  HUM  TIME  TAG 
6050  PRINT  'STARTING  HUM  CALCS' 

6060  RESTORE  6100 
6080  READ  034JC9.D7 
6100  DATA  999.1 
6160  FOR  N= 1 TO  P(3.400) 

6180  REM J CALC  HUML  RES  RATIO  R3 
6200  R8=P  < 3 . N ) - 1 NT ( P ( 3 » N ) ) 

6209  PRINT  'PER  RATIO  = 'JR8. 

6210  IF  R8=0  THEN  6860 

6215  REM:  WILL  BYPASS  HUML  RES  RATIO  CALC  FOR  BAROSWITCH  DROPSONDE 

6217  GO  TO  6235 

6220  R8=52. 718/R8-47. 718-7. 1 

6230  R8=250*R8/ ( 250-R8 ) /R4 

6235  R8=249* ( 18 . 2-R8*K0*25 . 35 ) / ( K0*R8*274 . 35-1 8.2) /R4 

6239  PRINT  * RES  RATIO®  * 5 R8 

6240  REM  .‘FETCH  CORRESPONDING  COMP  TEMP  T6  FOR  APP  HUM  CALC 
6260  C4= INT ( P < 3 » N ) ) 

6270  D9=C4-2 

6279  PRINT  'TIME  T AG=  ' r C4  $ 
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6280  D8= ( P < 1 > N ) -0 . 1 -09 ) *1 000 

6281  PRINT  * TEMP=*;D8J 

6300  T 6=D8 

6320  REM : CALC  APP  HUM 

6330  GO  TO  F 0 OF  6340 , 6350 

6332  LIST  6330 

6335  STOP 

6340  GOSUB  SOOO 

6345  GO  TO  6357 

6350  GOSUB  8600 

6355  PRINT  * APP  H=*;H9 

6357  GO  TO  6845 

6360  IF  C?>101  OR  H9=999  THEN  6370 

6365  GO  TO  6380 

6370  IF  NOl  THEN  6800 

6375  P(3rN-l >=INT(P(3,N-1 )) +0.999 

6377  GO  TO  6800 

6380  REMJCAL  MEAN  AP  HUM  C7,  MEAN-TAG  TEMP  C6  S HUM  RATE  C5  FOR  HUM  SEG 

6400  C7=  < H9+C9 ) /2 

6420  C3=INT( ( C4+C8 > /2+0 . 5 ) 

6440  C5=(H9-C9)/(C4-C8)*10 

6460  REMSFETCH  COMP  TEMP  C6  FOR  TIME-TAG  C3 
6480  D9  = C3 

6499  PRINT  1 T IME  = * i D9/1 0 i 

6500  GOSUB  7000 

6501  PRINT  * TEMP=*;D8» 

6502  IF  D80999  THEN  6520 

6504  IF  C3-INT <P<1»P<1» 400 ) ) ) >0  AND  C3-INT ( P < 1 > P ( 1 > 400 ) ) ) < = 4 THEN  6510 
6506  GO  TO  6520 

6510  PRINT  ‘TAG  IS  WITHIN  4 SEC  OF  TEMP  END.  LAST  TEMP  WILL  BE  USED* 
6512  D8=C6 

6514  PRINT  * TEMP=*?D8 

6520  C6=D8 

6540  GOSUB  9000 

6541  PRINT  * * t * COMP  H=*JG6 

6545  IF  G6<= 1 00  THEN  6560 

6549  LIST  6545 

6550  PRINT  * COMP  HUM  CHANGED  FROM  * i G6 i * TO  100)  TIME  TA6=  * i C6 
6560  P(3>N-1)=C3+1.0E-3*<G6  MIN  100) 

6800  REM : SET-UP  FOR  PROCESSING  NEXT  N 
6320  C9=H9 
6840  C8=C4 

6845  REM  .‘WRITE  BALLOON  HUM 
6850  P(3»N)=D9+2+H9/1000 
6860  NEXT  N 
6870  GO  TO  6940 
6880  P < 3 > P < 3 > 400  > ) =0 
6900  P ( 3 » 400 ) =P ( 3 * 400 ) -1 

6920  PRI  ’COMP  HUM  VALUES  HAVE  BEEN  STORED  IN  REDUCED  DATA  FILE  P(3»N>* 
6940  PRINT  041  ,*P 
6960  GO  TO  9100 
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7000 

7020 

7021 

7022 
7024 
7026 
7028 
7040 
7050 
7060 
7070 
7080 
7100 
7120 
7140 
7160 
7180 
7200 
7220 
7240 
7260 
7280 
7300 
7320 
7340 
7350 
7360 
3000 
8001 
8002 
8003 
3005 
8010 
8015 
8020 
8025 
8030 
3035 
3040 
3045 
3050 
3055 
8060 
8065 
8070 
8075 
8080 
8085 
3090 
8095 
3100 


REM : APPEND  TEMP-FETCH  HERE 

REM : FETCH  COMP-TEMP  D3  FOR  TIMETAG  D9  USING  POINTER  D7 
GO  TO  7040 

IF  INT (P<1>1)> <>D9  AND  INT ( P < 1 > P ( 1 > 400 ) > ) =>D9  THEN  7040 

PRINT  ‘TIME-TAG  09  ( ‘ * D9 > ' ) IS  OUTSIDE  LIMITS  OF  REDUCED  TEMP  DATA' 

D8=999 

GO  TO  7360 

IF  D7  = >1  AND  D7<>P ( 1 > 400 ) THEN  7080 

IF  D7O0  THEN  7080 

D8=999 

GO  TO  7360 

D8= INT ( P ( 1 f D7 ) ) 

IF  D80D9  THEN  7160 
D8=1000*(P< 1 >D7)-0. 1 -D8 ) 

GO  TO  7360 
IF  D8CD9  THEN  7220 
D 7 = D 7 - 1 
GO  TO  7040 
D7=D7+ 1 

D8=INT ( P( 1 • D7 ) ) 

IF  D8=D9  THEN  7120 
IF  D8>D9  THEN  7320 
GO  TO  7220 

D8= ( D9- INT ( P ( 1 * D7-1 ) ) ) / ( D8- 1 NT < P ( 1 >07-1 >)  > 

D8»D8*<P<1 >D7)-INT<P< 1 > D7) ) - ( P < 1 > D7-1 ) -INT < P ( 1 >D7-1 ) ) ) ) 

D8=1000# ( P < 1 > D7-1 ) -INT  < P ( 1 > D7-1 ) )-0. 1+D8) 

RETURN 

REM : CALC  %RH- INPUT  COMP  TEMP  T6  S HUML  RATIO  R8  > OUTPUT  7.RH  H9 
IF  T 60  999  THEN  800 5 
H9=999 
GO  TO  8515 

DATA  0 . 52  > 0 . 62  > 0 • 74  > 0 . 82  > 0 . 9 > 1 . 1 > 1 . 3 > 1 . 63  > 2 . 23 

DATA  3. 1 >4.2>6.5> 10.2> 17> 29 > 45 > 45 > 45 > 45 > 45 

DATA  0.55>0.65>0.78>0.85>0.92> 1 .06» 1 .23* l .4  * 1 .75 

DATA  2.35 >3. 1 >4. 1 >6>9.8> 17 » 26 >44, 86 > 170 >250 

DATA  0.585>0.695>0.3> 0.875>0. 94 > 1 . 05 > 1 . 1 75 > 1 . 32 > 1 . 53 

DATA  2 > 2. 5 > 3. 25 > 4. 5 > 7. 3 > 12 > 18. 5 >29 >60> 140 >220 

DATA  0.61 >0.72>0.82>0.89>0. 95 > 1 .04  > 1 . 15 > 1 .27> 1 .47 

DATA  1 .35>2.3>3>4>6. 4> 10> 1 6 > 23 > 40 > 1 26 > 206 

HI  =0 

H2  = 0 

H3=0 

H4-0 

IF  T 6=> — 40  AND  T6<0  THEN  8075 

GO  TO  8090 

RESTORE  8005 

HI =999 

GOSUB  3290 

IF  T 6 = >-40  AND  T6<25  THEN  8100 
GO  TO  8115 
RESTORE  8015 
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8105  H2=999 
3110  GOSUB  8290 

8115  IF  T 6>0  AND  T6<40  THEN  8125 

8120  GO  TO  8140 

3125  RESTORE  8025 

8130  H3=999 

3135  GOSUB  8290 

8140  IF  T £>25  AND  T6<  = 40  THEN  8150 

8145  GO  TO  3185 

3150  RESTORE  8035 

8155  H4=999 

8160  GOSUB  8290 

8165  IF  T 6 < - 4 0 OR  T6>40  THEN  8175 
8170  GO  TO  8190 
3175  LIST  3165 

8180  PRINT  * T6=  *JT6.’  - TILT!!!  TEMP  EXCEEDS  HYG  RATIO  LIMITS’ 

8181  PRINT  ’WILL  SET  H9=999  S RETURN* 

3182  GO  TO  8002 

3185  STOP 


3190 

REM 

JTEMP  INTERPOLATION  OF 

RH 

BEGINS 

HERE 

8195 

IF 

H1>0 

AND 

H2  = 0 

AND 

H3=0 

AND 

H4  = 0 

THEN 

8455 

3200 

IF 

H1=0 

AND 

H2>0 

AND 

H3  = 0 

AND 

H4  = 0 

THEN 

3465 

3205 

IF 

HI  =0 

AND 

H2=0 

AND 

H3>0 

AND 

H4  = 0 

THEN 

£4  ^5 

3210 

IF 

HI  =0 

AND 

H2  = 0 

AND 

H3=0 

AND 

H4  0 

THEN 

3435 

3215 

IF 

H1>0 

AND 

H2>0 

AND 

H3  = 0 

AND 

H4  = 0 

THEN 

3225 

8220 

GO 

TO  3 

235 

3225  H9=H1+(H2-H1 )*(T6+40)/40 
8230  GO  TO  3495 

8235  IF  HI =0  AND  H2>0  AND  H3>0  AND  H4=0  THEN  3245 

8240  GO  TO  8255 

8245  H9=H2+(H3-H2)*T6/25 

3250  GO  TO  3495 

3255  IF  HI =0  AND  H2=0  AND  H3>0  AND  H4>0  THEN  3265 

8260  GO  TO  8275 

3265  H9=H3+(H4-H3)*(T6-25)/15 

3270  GO  TO  8495 

3275  LIST  8255 

3280  PRINT  ’PROGRAMMED  STOP’ 

3285  STOP 

3290  REM : INTERPOLATE  RATIO  TO  GET  HUM i PUT  HUM  IN  PLACE  OF  999  VALUE 

3295  H7=5 

3300  READ  034JH8 

3305  IF  R8=>H8  THEN  8320 

3310  H5=9 , 9 

8315  GO  TO  8370 

3320  H7=H7+5 

8325  IF  H7<=  1 05  THEN  8345 
8330  LIST  8325 

3335  PRINT  ’ HYGR  RATIO  EXCEEDS  LIMITS.  <=’;R8?’)’ 

3340  GO  TO  8002 
3345  H6=H8 
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8350 

8355 

3360 

8365 

8370 

8375 

8380 

8385 

3390 

3395 

3400 

8405 

3410 

8415 

8420 

8425 

8430 

8435 

3440 

3445 

8450 

3455 

3460 

8465 

8470 

8475 

3480 

8485 

8490 

3495 

8500 

8505 

3510 

8515 

8530 

8532 

8534 

3536 

3538 

3540 


READ  @34!H8 
IF  R8>H8  THEN  8320 

REMJR8  IS  IN  RANGE  OF  H6  - H8?  WILL  INTERPOLATE  RATIO  TO  GET  HlJrl 
H5=H7+5*(R8-H6)/(H8-H6> 

REM:REPLACE999  WITH  H5  THEN  RETURN 


IF  Hl=999  AND 
IF  HI <106  AND 
IF  HI <106  AND 
IF  HI <106  AND 
LIST  8390 
PRINT  ‘PROGRAMMED 
STOP 
HI  =H5 

GO  TO  8450 
H2=H5 

GO  TO  8450 
H3=H  5 

GO  TO  8450 
H4  = H5 


H2C106 
H2=999 
H2<1 06 
H2C106 


AND 

AND 

AND 

AND 


H3<106 
H3<1 06 
H3=999 
H3C106 


AND 

AND 

AND 

AND 


H 4 < 1 0 6 
H4<1 06 
H4< 1 06 
H4=999 


THEN 

THEN 

THEN 

THEN 


8410 

8420 

3430 

3440 


STOP* 


GO  TO  3450 

RETURN 

H?=H1 

GO  TO  8495 
H9  = H2 

GO  TO  8495 
H9=H3 

GO  TO  8495 
H9=H4 

GO  TO  8495 

IF  H9<=100  THEN  3515 

PRINT  *APP  HUM  CHANGED  FROM  *? H9?*  TO  100?  T IME-TAG= 1 ? I NT ( P ( 3 > N ) ) 
H9=100 

REM : THIS  PROG  MODIFIED » DEBUGGED  S WORKING  AT  SBRT  LEVEL . MCW770809 
RETURN 

PRINT  * SEL  CALC  M0DE(1=CALC  S DISP  T » P » H ? 2=CALC  ALL  TtPtH)  ‘ ? 

INPUT  FI 

IF  FI =2  THEN  5500 

PRINT  'SELECT  TIME  TAG  (MUST  BE  *<  MAX  TIME  TAG-2)*? 

INPUT  D9 

REMJ  SBRT  WILL  RETRIEVE  TEM  PER  RAT  D8  OF  SPEC  TIME  TAG 


3542  D7=l 

3544  GOSUB  7000 

3545  D8=D8/1000+0 . 1 

3546  T9=22. 1*( 1/<K0*D8)-1)/R3 

8548  T8»65. 3/ <1-SQR< 1-0. 0480921 *LOG< T9/3 . 3785E-4 ) ) >-273.16 

8550  D8=T8 

8551  N=D7 

8552  GOSUB  3750 

3554  R8  = P (3»N)-INT ( P<  3 » N ) ) 

3556  RS=249* <18. 2-R8*K0*25 . 35 ) / ( K0*R8*274 . 35- 18.2) /R4 
8558  T6=T 8 


I 
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8560  GOSUB  8600 

3562  PRINT  ‘TIME  TAG  r TEMP  ? PRES  t HUM=  • f 09  i ’ • fT8f  1 JP5J*  ’ ) H9 
8564  PRINT  @4i:’TIME  TAG  ? TEMP  t PRES  r HUM  = ’ > D9 ) ’ 'iT3i‘  ’ 5 P5 f ’ * ? H? 
8566  PRINT  <?4i:*PRES  COEF  L(3»6)  ARE  AS  FOLLOWS:’ 

8568  PRINT  S41JL 
3570  GO  TO  8530 

8600  REMJ  CALC  APP  HUM  H9  FROM  HUML  RATIO  R8  AND  TEMP  T6  DEG  C. 

8605  IF  R8=>1  THEN  3625 

3610  GOSUB  3640 

3615  H9  = 33-HO 

3620  GO  TO  8700 

8625  GOSUB  3660 

8630  H9=33+H0 

8635  GO  TO  8700 

8640  REM:  ENTRY  POINT  FOR  R8<1 

8645  B9=20 

3650  R9=l/R8 

8655  GO  TO  8675 

3660  REM:  ENTRY  POINT  FOR  R8=>1 

3665  B9=l 5 

3670  R9=P9 

3675  A9r  02*To+3.2 

3680  K . 9- ( 0 . 001 425*T6+0 . 25 ) *LGT ( LGT ( R9 ) +1 ) ~0 . 333333333333 
3685  He  A9*L0G(R9''B9),'K9 
8690  RETURN 

8695  REM.*  THIS  SBRT  TESTED  i DEBUGGED  730213  PK-MCU 

3700  RETURN 

8750  rem:  CALC  PRES 

3760  REMJ  INPUTS-KO=REF  CONST  t P ( 2 > N ) =PRES  PER  RAT  * D8  = C0M  TEMP 
8770  rem:  INPUTS-COEF  IN  L ARRAY 
3780  REM:  OUTPUT -PRES  P5  (MB) 

8790  REMJ  CALC  SUPPLY  VOLTS  VO 
3800  V0=7. 629+0. 0076*T4 
3810  GO=L ( 1 > 1 >+L( 1 »2>*V0+L( 1 »3)*V0~2 
8820  G2=L ( 2 > 1 ) +L ( 2 1 2 ) *VO+L ( 2 > 3 ) *V0~2 
8830  G4=L ( 3 » 1 ) +L ( 3 » 2 ) *VO  + L ( 3 . 3 ) *V0~2 
8840  D8=D8+273 . 16 

8850  G1  =L  ( 1 > 4 ) +L  ( 1 > 5 ) *D8+L<  1 »6)*D8~2 
3860  G3  = L ( 2 • 4 ) +L  ( 2 f 5 ) *D8  + L < 2t  6 ) *08~2 
8870  G5=L  < 3 » 4 ) +L ( 3 » 5 > *D8+L ( 3 » 6 > *D3~2 
3880  D8=D8-273 . 1 6 

3890  VI =V0* ( P ( 2 > N > - 1 NT ( P ( 2 > N ) ) >*K0 
3900  P5=G0*G1+G2*G3*V1+G4*G5*V1~2 
8910  RETURN 

9000  REM: LAG-COMP  HUM.  INPUTS-  HUM  C7,  TEMP  C6>  HUM  RATE  C5 i OUTPUT  G6 

9001  REM:jl  = HUM  LAG-COMP  SETTING  (0-1  .*  NONE-FULL) 

9005  IF  C5<0  THEN  9020 

9010  G6=0. 17* (273. 16/(C6+273. 16) ) +0.36* (273. 16/(06+273. 16) >"17 
9015  GO  TO  9025 

9020  G6=0 .2*  (2  73. 16/<C6  + 273. 16)  ) +0 . 75*  ( 273 . 1 6/ ( C6  + 273 . 1 6 ) >~19.3 
9025  G6=C7+G6*C5*J1 
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9030 

9035 

9100 

9110 

9120 

9130 

9140 

9145 

9150 

9160 

9170 

9130 

9190 

9192 

9200 


WEN  RDY  FOR  FILE  4,  ENTR  R - 


REM J END  OF  HYGRISTOR  LAG-COMPENSATION  PROG 
RETURN 
STOP 

PRINT  'SAFE  PROG  CASS  IN  CONSOL 
INPUT  S* 

IF  S*=*R*  THEN  9145 
GO  TO  9110 
DELETE  L 
FIND  4 

DELETE  4750  > 6960 
DELETE  3000  r 91 45 
APPEND  9200 

REM:  MODIFIED  FOR  CONTINUOUS  PRESSURE  SENSOR.  PK-780216 
REM:  MODIFICATION-  CALC  OF  THERM  AND  HUML  RES  RATIOS 
REM J FILE  4 GETS  APPENDED  HERE 
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9200  REM l FILE4 . TO  BE  APPENDED  TO  FILE  3 AT  LINE  9200 
9210  DELETE  9150*9180 

9230  REM  5 EXTRAPOLATE  PRES  TO  SURF.  U9=SURF  TAG*  U6=LAST  PRES* 

9240  REMJU5=2ND  LAST  PRES*  U7=TAG  LAST-TAG  2ND  LAST* 

9250  REM:U8=SURF  TAG-LAST  SURF  TAG*  S9=SURF  PRES 
9260  F9=INT ( P < 1 * P ( 2 * 400 ) ) +1 ) 

9270  U9=< INT(P( 1 >P< 1 *400) ) ) MAX  INT ( P ( 1 * P ( 3 * 400 ) ) ) ) +4  MAX  F9  + 2 
9280  U6=P ( 2 * P < 2 * 400 ) ) - 1 NT  < p < 2 > P ( 2 * 400 ) ) ) 

9290  U5=P(2*P<2*400)-1 ) - INT ( P ( 2 * P ( 2 * 400 ) - 1 ) ) 

9300  U7=INT ( P ( 1 *P (2*400) ) ) -INT ( P ( 1 * P ( 2 * 400 ) -1 ) ) 

9310  U8=U9-F9 

9320  S9=U6+U8*(U6-U5)/U7 

9325  PRINT  * OPR-ENTERED  SURF  PRES  ESTIMATE  = '**P2>'  MB' 

9330  PRINT  ‘TAGGED-PRES  EXTRAPOLATION  TO  SURF  = '*S9 

9340  PRINT  'WANT  TO  CHANGE  XTRAPLTD  PRES?  ENTR  l<+>  OR  2<->  - '* 

9350  INPUT  Z9 

9360  GO  TO  Z9  OF  9380*9400 
9370  GO  TO  9340 

9380  PRINT  'ENTR  DESIRED  MB  PRES  FOR  SURF  (PPPP.P)  — '? 

9382  INPUT  S9 

93S4  REM : EXTRAPOLATE  S BUILD  TAG . P FOR  SURF 
9386  Z9=U6 
9337  Z8=U5 

9388  Z9= ( S9/10000-Z8 )/( Z9-Z8 ) 

9390  Z9=INT ( P ( 1 *P (2*400) ) )+Z9*U7 
9392  S9=INT(Z9+0.5)+S9/10000 
9400  PRINT  * P ( 2 * 400 ) - ' *P(2*400) 

9402  PRINT  'WILL  STORE  ENTRY  AS  FOLLOWS:  P < 2 * ' * P ( 2 * 400 ) +1  * ' ) = ' *S9 
9404  PRINT  ’WANT  TO  RE-ENTP.  BEFORE  STORAGE7  ENTR  1<  + ) OR  2<-)*> 
9410  INPUT  Z9 

9420  GO  TO  Z9  OF  9440*9445 

9430  GO  TO  9400 

9440  GO  TO  9380 

9445  P ( 2 * 400 ) =P ( 2 * 400 ) + 1 

9450  P ( 2 * P < 2 * 400 ) ) =S9 

9455  REM : ASSIGN  TEMP  S HUM  AT  SURF 

9460  PRINT  'LAST  TAG . TEMP  S T AG . HUM=  ' * P ( 1 * P ( 1 * 400 ) ) * ' S ' * P ( 3 > P < 3 
9470  PRINT  'OK  TO  EXTEND  THESE  UALUES  TO  SURF7  l(t)  OR  2(->  — '* 
9480  INPUT  Z9 

9490  GO  TO  Z9  OF  9540*9510 
9500  GO  TO  9460 

9510  PRINT  'ENTR  SURF  TAG . T STAG . H ( TTTT . TTT * TTTT . HHHH ) - "* 

9520  INPUT  P ( 1 * P ( 1 * 400 )+l)*P<3*P(3*400)+l) 

9525  P < 1 >400)= P( 1 » 400 ) + 1 
9530  P ( 3 * 400 ) =P ( 3 * 400 ) + 1 
9535  GO  TO  9590 

9540  REM J EXTEND  LAST  T S H TO  SURF  (IF  OPR-SELECTED ) 

9541  FOR  N=1  TO  3 STEP  2 

9545  P ( N > P ( N * 400 ) + 1 ) =P ( N > P ( N * 400 ) ) - INT < P ( N » P ( N * 400 ) ) ) 

9550  P(N*P(N»400)  + 1 ) =P ( N * P ( N * 400 ) + 1 ) + INT ( P ( 2 > P ( 2 * 400 ) )-2  + N) 

9560  P(N*400)=P(N*400)+1 
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9570  NEXT  N 

9580  DELETE  9200*9570 

9590  REMJCALC  ALTITUDE . REFRACTIUI TY  PROFILE  INTCPC2.N)) 

9600  REM ♦ MAKE  SURE  INTCPC2.N))  ARE  ALL  0 

9615  FOR  N= 1 TO  399 

9620  PC2* N)=P(2*N)-INT(P(2*N) ) 

9625  NEXT  N 

9650  REM : FETCH  SURFACE  PRES 

9660  09  = 10000* CPC  2. PC 2 *400) ) - 1 NT ( P < 2 * P ( 2 * 400 ) ) ) ) 

9670  REMrCALC  LAYER  THICKNESSES*  I NT ( P ( 2 * N ) ) CENTIFEET.  09  = B0TT0M  PRES* 
9680  REM:08=T0P  PR*  07=A0G  RH*  06=A0G  TEMP*  U5=SAT  OAP  PR*  V4=THKNS  CM) 
9690  FOR  N=P  (2*400 ) TO  1 STEP  -1 
9700  REM : FETCH  TOP  PRES 
9710  U8=P ( 2 * 400 ) 

9720  08=08-1 

9730  IF  I NT  CPC  1 * 08 ) +1 > <1 NT (PCI  * N ) + 1 ) AND  08>1  THEN  9770 
9740  IF  08>1  THEN  9720 
9742  IF  0801  THEN  9750 

9744  PRINT  ’REACHED  END  OF  PRES  FILE  WITH  ’ * N » ’ LAYERCS)  NOT  CALCULATED’ 
9746  GO  TO  9940 
9750  LIST  9740 
9760  STOP 

9770  Z9=INT (PC  1*08+1) >-INT(P(l *08) ) 

9775  08=10000* (PC  2* 08 )-INT( PC  2* 08) ) ) 

9780  17= ( 09-08 ) /Z9 
9785  09=09+17 
9790  08=08+17 

9792  IF  08<09  THEN  9800 

9793  GO  TO  9800 

9794  LIST  9792 

9796  PRINT  ’TOP  PR= ’* 08 *’ BOTTOM  PR= ' 5 09 
9798  STOP 

9800  REM : CALC  AOG  RH 

9810  07=500* (PC 3*N-1 ) -INT ( P ( 3 * N-l ) ) +P ( 3 . N ) -I NT ( P C 3 * N ) ) ) 

9820  REM  .’FETCH  AOG  TEMP  06 

9830  D9=(  INT  ( F'  ( 3 * N-l ) ) +INT  ( PC  3 * N)  ) )/2 

9840  GOSUB  7000 

9850  06=D8 

9860  REM J CALC  SAT  OAP  PRES  05  USING  06 
9870  GOSUB  15000 

9380  REM : CALC  THICKNESS  04  S INCREMENT  ALTITUDE  INT(F'C2*N>) 

9890  04=28. 3* (06+273. 16 ) * ( 09*03) ~0 . 5 

9900  04=04/(0. 18*07*05+28. 8* ( ( 09*08 ) ~0 . 5-0 . 0 1 *07*05 ) ) 

9910  04=-29.263242*04*(LOG(08/1000)-LOG( 09/1000) ) 

9920  F'  ( 2 * N- 1 ) = INT  ( P ( 2 > N ) ) +INT  ( 100*04/0 . 3048+0 . 5 ) +P  ( 2 * N-l  ) -INT  ( P ( 2 * N-l  > > 
9925  09=08-17 
9930  NEXT  N 

9940  PRINT  ’WANT  CENTIFT  ALTS  CORRESF'ND ' G TO  HUM  OALUES?  1C  + )*  2(->  - ’* 
9950  INPUT  Z9 

9960  GO  TO  Z9  OF  9980*10000 
9970  GO  TO  9940 

9980  PRINT  041 : ’FOLLOWING  ARE  LISTS  OF  TAG. TEMP.  ALT. PRES*  TAG. HUM:  ’ 
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9990 

10000 

10002 

10004 

10006 

10010 

10040 

10050 

10060 

10070 

10080 

10090 

10105 

10110 

10115 

10120 

10125 

10130 

10140 

10150 

10160 

10170 

10180 

10190 

10200 

10210 

10220 

10230 

15000 

15010 

15020 

15030 

15040 

15050 

15060 

20000 

20005 

20010 

20020 

20030 

20035 

20040 

20045 

20060 

20070 

20080 

20090 

20140 

20150 

20160 

20165 


INT  (F'(  3 rN>  ) 


10160 


GO  TO 
GO  TO 
PRINT 
PRINT 
GO  TO 


OR  2 ( - ) -- 


ALT . P » N.H51 


PRINT  @41 JP 

REM J CALC  REFRACT I VI TIES  2 STORE  IN  INT(P(3rN>) 

FOR  N= 1 TO  399 

F'  ( 3 » N ) =F'  ( 3 r N ) - INT ( P ( 3 f N ) ) 

NEXT  N 

FOR  N= 1 TO  P ( 3 f 400 ) 

REM  5 FETCH  TEMP  D8  AT  TAG  D9 
08=(P( 1 »N)-0. 1-INT(P( 1 ,N) ) )*1000 
V6=D8 

REM : CALC  SAT  VAP  PRES  V5  FOR  TEMP  V6 
GOSUB  15000 

REM : FETCH  PRES  V8  MB  FOR  TAG  09 

IF  F'  ( 2 » N ) = 0 AND  NOP  ( 3 t 400 ) THEN  10160 

08=(P(2»N)-INT  < P ( 2»  N ) ) >*10000 

IF  V8=9999  THEN  10160 

REM  1 CALC  REFR'Y  N-UNITS.  V4 

Z9=1000* ( P < 3 » N > -INT ( P ( 3 » N > > ) 

04=  ( 77, 6*08-0. 056*Z9*05>/( 08+273. 16) 

04=04+3750*29*05/(08+273. 16) ~2 
P(3»N)=P(3»N)+INT( 04*1000+0. 5) 

NEXT  N 

PRINT  'WANT  LIST  OF  ALT  AND  N UNITS'?  l(  + > OR  2(->  — 1 i 
INPUT  Z9 

GO  TO  Z9  OF  1 021 0 » 10230 
GO  TO  10170 

PRINT  @41 : ‘FOLLOWING  ARE  LISTS  OF  TAG . T * ALT.Pr  N.HJ1 
PRINT  @41 :p 
GO  TO  21000 

REM J CALC  SAT  VAP  PR  V5  MB  FOR  TEMP  V6  DEG  C»  Z9=(l-t)/t 
Z9=  ( l-(V6+273. 16)/373. 1 6 ) / ( (V6+273. 16>/373. 16) 

V5=l 01 3. 246*1 0~(0. 0081238* ( 10~(-3. 491 49*Z9)-1 > ) 

Z8=(06+273. 16)/373. 16 
05=05/(ZS'~5.02S08*10'',(7. 90298*29)  > 

05=05/1 0~(1 .3816E-7*( 1 0" ( 1 1 .344*( 1-Z3) )-l > ) 

RETURN 

REM : FETCH  PRES  08  MB  FOR  TAG  09 
09=09+1 

IF  D9=>INT ( P( 1 » 1 ) +1 ) AND  09  = I NT ( P ( 1 . P ( 2 > 400 > > + 1 > THEN  20060 
LIST  20010 

PRINT  ’ T AG=  * J 09  ? ‘ i IS  OUTSIDE  TAG  RANGE  FOR  PRES  FILE1 

PRINT  ’ NON-OAL 1 0 CODE  ••9999**  APPLIED  TO  PRES  08  (AT  N=  * f N 5 ’ > 

08=9999 

GO  TO  20170 

Z9=  1 

Z9=Z9+ 1 

IF  INT(P(1»Z9>+1)*>09  THEN  20140 
GO  TO  20070 

08=(D9-INT(P( 1 f Z9-1 >+l ) >/< INT(P( 1 »Z9 > +1 ) - INT ( P ( 1 > Z9- 1 ) + 1 ) > 
08=08* (P  <2>Z9)-INT  <P(2»Z9) >-(P(2»Z9-l ) -INT ( P ( 2 » Z9- 1 ) > ) > 
08=10000* ( P( 2> Z9-1 > -INT (P( 2 »Z9-1 ) )+08) 

09=09-1 
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120170  RETURN 

21002  PRINT  @41.* 

21004  PRINT  041 : 

121006  PRINT  @41 :•  * » ‘DETAILED  LIST  OF  ATMOSPHERIC  PARAMETERS* 

21008  PRINT  @41 : 

21010  PRINT  @4 1 : * ALT  ( FT ) ALT  ( M ) PR  ( MB ) T(DEG-C)  RH  < V. ) N-UNITS  * ? 
21020  PRINT  @41 :*  M-UNITS  G/M3  D-PT-DEP  N/M  N/M-CLASS * 

21030  Z*=* * 

21040  PRINT  @41 JZ * 

21050  REMJU9=NTH  VALUE  OF  ALT ( FT ) > W8=NTH  VALUE  OF  REFR'Y 
21060  FOR  N= 1 TO  P(3»400) 

21070  W9=0.01*INT(P<2rN>  ) 

21072  IF  U9  = 0 AND  N<P(3»400>  THEN  21400 

21080  W8=INT (P(3fN) )/1000 

21110  REM  .‘FETCH  PR  V8  MB  FOR  TAG  D9 

21130  V8=  ( P < 2 > Nl-INT (F* ( 2> N > )) *10000 

21132  IF  V8=9999  THEN  21400 

21140  REM : FETCH  TEMP  D8  DEG  C FOR  TAG  D9 

21150  D8=  < P ( 1 » N ) -0 . 1 - INT ( P < 1 > N ) ) )*1000 

21170  W1=1000*<P<3>N)-INT(P(3»N) ) ) 

21180  GOSUB  21420 

21190  IMAGE6D . X » 6D . X » 5D . DX  , 4D . 2DX , 5D . DX » 5D . DX  » 6D . X » 4D . 2DX r 5D . DX 
21200  PRINT  @41.*  USING  21 1 90  .*  W?  r 0 . 3048*W9  f V8 » D8r  W1 » W8J  W8+0. 048*W?  r Id2  r W3 
21210  IF  N=P(3»400)  THEN  21400 
21220  W7=0.01*INT <P(2>N+1 ) ) 

21230  W6=INT (P(3»N+1) )/1000 
21240  REM  5 CALC  N/M  GRAD  U5 
21250  W5=(W8-W6)/(W9-W7)/0.3048 
21280  IF  U5<-0. 07374  THEN  21340 
21290  IF  W5<0  THEN  21320 
21300  U*=*  SUBFR+  * 

21310  GO  TO  21390 
21320  U$=*  NORML-  * 

21330  GO  TO  21390 

21340  IF  W5<-0 . 1 575  THEN  21380 

21360  U*=*  SPRF — * 

21370  GO  TO  21390 
21380  W$=*  TRP ’ 

21390  PRINT  @41!  USING  * 74D . 4DX r 3A * : W5 i U* 

21400  NEXT  N 
21410  GO  TO  21530 

21420  REM i CALC  ABS  HUM  W2  GRAMS/CUBI C-M  AND  DEW  POINT  DEP  DEG  C 
21430  V6=D8 
21440  GOSUB  15000 

21450  U2=596*10*(P<3>N)-INT(P(3>N) ) ) *V5/ 1 0 1 3 . 25*373 . 16/18*273.16 
21455  REMJENTR  SBRT  HERE  IF  U2  IS  KNOWN  I ONL Y U3  IS  WANTED 
21470  V6=D8 
21480  GOSUB  15000 

21490  W4*0.01*< 1000*(P(3fN)-INT(P(3»N) ) ) ) *V5 
21500  V4=V5 
21510  V6=D8-1 
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21520  GOSUB  15000 

21530  IF  ABS<  V5-W4K1 ,0E-3*W4  THEN  21560 
21540  V6=D8-<D8-V6)*(V4-W4)/(V4-V5> 

21550  GO  TO  21520 
21560  W3=D8-V6 
21570  RETURN 
21580  LIST  21600 

21585  PRINT  * IF  WANT  COPT  DISPLAY » DO  SO  BEFOR  CONTINUING  RUN' 
21590  STOP 

21600  REM  5 END  OF  PRINTOUT  r WILL  GO  TO  PLOT. 

30000  REM : PLOT  ALTITUDE  PROFILES  OF  TEMP  i HUM 
30005  PAGE 

30010  REM J SELECT  ALT  SCALE 

30011  N=1 

30012  U0=0 

30014  UO=UO  MAX  INT  < P ( 1 > N ) ) +1 

30015  IF  U0> INT ( P ( 1 » N ) ) + 1 THEN  30020 
30017  N=N+ 1 

30013  GO  TO  30014 

30020  IF  0 . 01*U0> 15000  THEN  30050 

30030  U0= 1 5000 

30040  GO  TO  30095 

30050  U0=30000 

30095  REM : PLOT  TEMP  AXES 

30100  VIEWPORT  5.75.5.95 

30110  WINDOW  -40.30. -500.U0 

30120  AXIS  5 . UO/15 . -40  . 0 

30130  MOVE  -40  . UO 

30140  PRINT  1 KtdHNFT ' . * TEMP ( DEG  C)*.'  1 f'RH(Z)' 

30150  PRINT  UO/IOOO.'  * » ' HHDRQP  * ' i NO  » * JHHtdHHHfci  * J D 1 

30160  MOVE  -40.2*U0/3 

30170  PRINT  ‘Hid1  J2*U0/3000 

30180  MOVE  -40.U0/3 

30190  PRINT  ,HH,;U0/3000 

30200  MOVE  -40  . 0 

30210  PRINT  ‘ HO ‘ 

30220  MOVE  0.-500 
30 230  PRINT  ■JOtSi* 

30240  MOVE  -20.-500 
30250  PRINT  ‘JUU-COL' 

30260  MOVE  20.-500 
30270  PRINT  '2820^' 

30280  REM  .‘PLOT  TEMPS 
30290  D7= 1 

30300  FOR  N=2  TO  PC3.400) 

30320  D8=(P< 1 »N-1 >-0. 1-INT<P(1 ,N-1 > > ) *1000 
30325  D0=0.01*INT(P(2»N-1  ) ) 

30330  IF  ABS ( D8 ) >60  OR  D0=0  THEN  30390 
30340  MOVE  D8.D0 

30360  D8=  < F’  < 1 . N ) -0 . 1 - INT  ( P ( 1 » N ) ) >*1000 
30365  D0=0.01*INT<P(2f N) ) 


Figure  E-4.  Listing  for  Fourth  File  of  CAPS  Dropsonde 
Program,  8 June  1978  (Page  5 of  11) 


r 


30370  IF  ABS ( D8 ) >60  OR  D0=0  THEN  30390 

30380  DRAW  08,00 

30390  NEXT  N 

30395  REM  .*  PLOT  HUM  AXES 

30400  VIEWPORT  77,127,5,95 

30410  WINDOW  0, 100,-500,UO 

30420  AXIS  10,UO/15 

30430  MOVE  0,-500 

30440  PRINT  ’JOK’ 

30450  MOVE  50,-500 
30460  PRINT  1 JH50K  * 

30470  MOVE  100,-500 
30480  PRINT  •JidUlOOK’ 

30490  REM : PLOT  HUMS 
30500  FOR  N=2  TO  F'(3,400) 

30510  09=1 000* (P(3,N-1 ) -INT ( P ( 3 , N- 1 ) ) ) 

30515  D0=0.01*INT(P(2,N-1 ) > 

30520  IF  D9> 1 00  OR  00=0  THEN  30570 
30530  MOVE  09, DO 

30540  09=1000* (P(3,N)-INT(P(3,N)  ) ) 

30545  00=0 . 01 *INT (P(2,N) ) 

30550  IF  09>100  OR  00=0  THEN  30570 
30560  DRAW  09,00 
30570  NEXT  N 
30574  COPY 

30576  FOR  N=1  TO  2200 
30578  NEXT  N 
30580  COPY 

30582  FOR  N=1  TO  2200 

30583  NEXT  N 

30584  COPY 
30586  PAGE 

40000  REMJPLOT  ALTITUDE  PROFILES  OF  N-  3 M-UNITS 

40050  VIEWPORT  5,75,5,95 

40060  WINDOW  200 , 400 , -500 , UO 

40070  AXIS  20, UO/15, 200,0 

40080  MOVE  200, UO 

40090  PRINT  ’LklHNFT  * , 'REFR  ' Y ( N-LJNITS  ) ’ » ’ ■.•M-UNITS’ 

40100  PRINT  U0/1000,’  * , * HHDROP  * * f NO  f ’ JldHHbHHH  ' i 01 

40110  MOVE  200 , 2*U0/3 

40120  PRINT  ‘ HH ‘ J 2*U0/3000 

40130  MOVE  200 , UO/3 

40140  PRINT  *HU’;U0/3000 

40150  MOVE  200,0 

40160  PRINT  ’UO* 

40170  MOVE  300,-500 
40180  PRINT  * JH300ti  * 

40190  MOVE  240,-500 
40200  PRINT  ' JH240K  * 

40210  MOVE  360,-500 
40220  PRINT  ’0836011 ' 
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40230  REM  .‘PLOT  N-UNITS 
40240  07=1 

40250  FOR  N=2  TO  P(3.400> 

40260  D8=INT(P(3. N-l ) )/1000 
40270  D0=0.01#INT(P(2f N-l ) > 

40280  IF  ABS ( D8-600 ) >400  OR  00=0  THEN  40340 

40290  MOVE  08 r DO 

40300  08= INT ( P ( 3 . N ) ) / 1000 

40310  00=0 . 01  * I NT  ( F'  ( 2 » N ) ) 

40320  IF  AOS (08-600) >400  OR  00=0  THEN  40340 
40330  DRAW  08  . DO 
40340  NEXT  N 

40350  VIEWPORT  77.127.5.95 
40360  WINDOW  300 . 900 . -500 . UO 
40370  AXIS  100. UO/15, 300,0 
40380  MOVE  300.-500 
40390  PRINT  'Jb300fc;' 

40400  MOVE  600  » -500 
40410  PRINT  * JH6001S.  ’ 

40420  MOVE  900.-500 
40430  PRINT  ■JldHPOOL’ 

40440  REM  i PLOT  M-UNITS 
40450  FOR  N=2  TO  P< 2.400) 

40460  09=INT(P(3f N-l ) )/1000 

40465  09=09+0.048*0. 01 *INT < P ( 2 . N-l ) ) 

40467  00=0 ,0l*INT(P(2. N-l ) ) 

40470  IF  AOS (09-600) >390  OR  00=0  THEN  40520 

40480  MOVE  09.00 

40490  D9=INT(P(3.N) )/1000 

40495  09=09+0. 048*0. 01 *INT ( P ( 2 . N > ) 

40497  00  = 0 . 01 *1  NT ( P ( 2 » N ) ) 

40500  IF  AOS (09-600) >390  OR  00=0  THEN  40520 
40510  DRAW  09.00 
40520  NEXT  N 
40522  COPY 

40524  FOR  N=1  TO  2200 
40526  NEXT  N 
40528  COPY 

40530  FOR  N= 1 TO  2200 
40532  NEXT  N 
40534  COPY 
40536  PAGE 

45000  REM {LIST  SIGNIF  LEVELS  (BASED  ON  LINEAR  FIT  OF  TSH  TO  ALT) 

45002  PRINT  041 : 

45003  PRINT  f?41  J 

45005  PRI  041 J*  *, 'SIGNIF  LEVS  (T1.H10)  LIST  OF  ATMOSPHERIC  PARAMETERS' 
45007  PRINT  041  : 

45010  DELETE  S 
45020  DIM  S(2.9) .0(9) 

45030  RESTORE  45050 
45040  READ  034 J S9 . S8 . S » 0 . M 


I 
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45050  DATA  2 r 0 f 1 , OE-3 f 0 r -9 . OE+99 f 9 . OE+99 f 0 f 0 r 0 f 0 r 0 f 0 . 01 f 0 f - 
45055  DATA  9 . 0E  + 99 f 0 f 0 * 0 » 0 » 0 . 9 . OE  + 99 » 0 . 0 . 0 » 0 » 0 * 0 • 0 . 0 * 1 
45060  REM  .'LIST  FT  f Mr  MB  f DEG-Cf  %RH  f N f M-UNITS  f G/M3  f D-PT-DEF' 
45070  PRINT  @41 J * ALT(FT)  ALT  ( M ) PR  ( MB ) T(DEG-C)  RH(%)  N- 
45080  PRINT  @41 f M-UNITS  G/M3  D-PT-DEF* 

45090  Z*=* 1 

45100  print  @4i:z*;z$;* ‘ 

45110  REM:U9=NTH  VALUE  OF  ALT(FT),  W8=NTH  VALUE  OF  REFR'Y 
45120  FOR  N=P ( 2 1 400 ) TO  2 STEP  -1 
45130  W9=0.01*INT(P(2fN) ) 

45150  W8=INT(F’  (3fN) )/1000 

45160  REM  .‘FETCH  PR  V8  MB  FOR  TAG  D9 

45180  V8=  (F'(2fN)-INT(P(2fN)  ) ) *10000 

45190  IF  V8=9999  THEN  45500 

45200  REM : FETCH  TEMP  D8  DEG  C FOR  TAG  D9 

45210  D8= (P(lrN)-O.l-INT(P(lrN) ) )*1000 

45220  W1 =1000*  ( P ( 3 r N ) - INT  ( F*  ( 3 f N ) ) > 

45222  REM : CALC  ABS  HUM  W2  S DEW-PT-DEP  W3 
45224  GOSUB  21420 
45230  P9=l . 1+D8/1000 
45240  N9=100*W9+1 .OE-3 

45250  IF  N9=l . OE-3  AND  INT ( S < M » 9 ) ) =0  AND  INT ( S ( M f 2 ) ) >0  THEN 

45260  GOSUB  45520 

45270  P9=2+W1/1000 

45280  GOSUB  45520 

45285  IF  N= 1 THEN  45300 

45290  IF  S8<>  1 THEN  45340 

45300  S8=0 

45320  IMAGE6D . X f 6D . X f 5D . DX  f 4D . 2DX f 5D . DX . 5D . DX  f 6D . X f 4D . 2DX f 5 

45330  PRINT  @412  USING  45320:0 

45340  0(1>=W9 

45350  0 ( 2 ) =0 . 3048*W? 

45360  0(3) =V8 

45370  0(4) =D8 

45380  0(5) =W1 

45390  0(6)  =U8 

45400  0(7)=U8+0.043*U9 

45410  0(3) =W2 

45420  0(9) =W3 

45500  NEXT  N 

45510  GO  TO  49000 

45520  REM J FIND  SIGNIFICANT  VALUES 

45530  REM: INPUT  IS  ID-TAGGED  VALUE  P9  i LINEARITY  BASE  N9 
45540  REM  .‘INPUT  TOLERANCES  ARE  S(MfI) 

45550  REM:0UTPUTS:BASE-TAGGED  VALUES  S ( M f 2 ) WITH  FLAG  S8  = l 
45560  M=  INT ( F'9 ) 

45570  REM  J CALCULATE  NEW  SLOPE  S(Mf5) 

45580  S(Mf5)  = (F'9-INT(P9)-(S(Mf2)-INT(S(Mf2)  ) ) ) / ( N9-INT  ( S ( M f 
45660  REM.*  TEST  NEW  SLOPE 
45665  IF  NO 2 THEN  45690 

45670  IF  S(Mf5)=>S(Mf3)  AND  S ( M f 5 ) OS  ( M f 4 ) THEN  45692 


9. 0E+99 

UNITS  “f 


D.DX 


WEN  SIGN IF 

2)  ) ) 


I 
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45680  REMJNEW  SLOPE  NOT  ON > SET  FLAG 
45690  S8= 1 

45692  REM : UPDATE  LAST  LEVEL 
45694  S(M*8)=S(M*9) 

45696  S(M*9)=INT (N9)+(P9-INT ( P9 ) ) 

45700  IF  M < S 9 THEN  45930 

45720  REM J FOR  ALL  M*  DECLARE  LAST  VALUE  IF  SI3NIF*  SET  NEW  LIMITS 
43730  FOR  M=1  TO  S9 
45735  IF  S8<>1  THEN  45762 
45740  S<M*2)=S(M>8) 

45750  S(M*3)=-9.0E+99 
45760  S ( M * 4 ) =9 . OE  + 99 

45762  REM* CALCULATE  NEW  ACCEPTANCE  SLOPE  LIMITS 
45764  IF  N9>INT ( S ( M * 2 ) ) THEN  45772 

45766  S(M*6)=S(M*9)-INT(S<M*9))+S(M*1)-(S(M*2)-INT(S<M*2))) 

45767  S<M*6)=S(M*6)/(N9-INT(S<M.2>  ) ) 

45768  S(M*7)=S(M*9)-INT ( S ( M * 9 ) ) -S ( M * 1 )-(S(M*2)-INT ( S < M * 2 ) > ) 

45769  S(M*7)=S(M*7>/( N9- INT ( S < M > 2 ) ) ) 

45770  GO  TO  45780 

45772  S<M*6)=S(M*9)-INT ( S < M * 9 ) ) - S ( M * 1 )-<S(M»2)-INT ( S ( M > 2 ) > > 

45773  S<M*6)=S(M*6)/(N9-INT<S(M*2)  ) ) 

45774  S(M*7)=S(M*9)-INT ( S ( M * 9 ) ) + S < M * 1 )-(S(M*2)-INT ( S ( M » 2 ) ) ) 

45775  S(M*7)=S(M*7)/(N9-INT ( S<  M»  2 ) ) ) 

45780  REMJUPDATE  SLOPE  ACCEPTANCE  LIMITS.  START  WITH  TEST  OF  MIN  SLOPE 
45790  IF  S ( M » 6 ) >S ( M * 3 ) THEN  45820 
45800  REM : MIN  ACCEPTABLE  SLOPE  ON  AS  IS 
45810  GO  TO  45840 

45820  REM  J UPDATE  MIN  ACCEPTABLE  SLOPE 
45830  S(M*3)=S(M>6) 

45840  REM : NOW  TEST  MAX  SLOPE 
45850  IF  S ( M * 7 ) <S ( M * 4 ) THEN  45880 
45860  REM : MAX  ACCEPTABLE  SLOPE  O.N.  AS  IS 
45870  GO  TO  45900 

45880  REM : UPDATE  MAX  ACCEPTABLE  SLOPE 
45890  S(M*4)=S<Mf 7) 

45900  NEXT  M 

45901  M=M- 1 
45930  RETURN 

49000  REM  .’LIST  ATMOSPHERIC  PARAMETERS  AT  MANDATORY  PRES  LEVELS  Y(M> 

49001  PRINT  @41 J 

49002  PRINT  @41 J 

49003  PRINT  @41 J*  * t ' MANDATORY  LEVELS* 

49004  PRINT  @41 J 

49005  PRINT  @41J*ALT(FT)  ALT ( M ) PR ( MB ) T(DEG-C)  RH(X)  N-UNITS  *i 

49006  PRINT  @41 J * M-UNITS  G/M3  D-PT-DEP* 

49007  Z$=* * 

49008  PRINT  @4i:Z*»Z*i* * 

49010  DIM  Y ( 7 > 

49020  RESTORE  49040 
49030  READ  034:Y,M*T9 

49040  DATA  1000.850*700*500*400*300*250*0*1 


Figure  E-4.  Listing  for  Fourth  File  of  CAPS  Dropsonde 
Program,  8 June  1978  (Page  9 of  11) 


I 


49050  REM : FETCH  SURF  PRES  FROM  P ARRAY 

49060  08=10000*<P(2rP(2»400> > -INT < P ( 2 » P < 2 » 400 > ) ) ) 

49070  REM J FETCH  TIME-TAG  D9  FROM  P ARRAY  USING  PR  US 
49080  GOSUB  49370 

49090  REM : USE  TAG  D9  IN  <P<l,N)+2)  TO  FIND  N l INTERP  FRACTION  NO 
49095  IF  D9= 1 THEN  49355 
49100  GOSUB  49510 

49110  REM J USE  N & NO  TO  GET  ALT  W9  FROM  P(2»N) 

49120  W9= INT ( P ( 2 » N ) ) 

49122  IF  M>0  THEN  49130 
49124  U9=INT(P(2»P<2»400) ) )/100 
49126  GO  TO  49150 
49130  Z9=INT(P<2>N-1 ) ) 

49140  W9=0.01*<U9  + N0*(Z9-W9)  ) 

49145  IF  T9«>W9  THEN  49355 

49150  REM i USE  N % NO  TO  GET  N-UNITS  W3  FROM  INT<P<3»N>> 

49160  W8= INT ( P ( 3 » N ) ) / 1 000000 
49170  Z9=INT (P(3» N-l ) ) /1 000000 
49180  U8=  1 000#  ( W8  + N0 * ( Z9-UI8  ) ) 

49190  REM : FETCH  TEMP  D8  FOR  TAG  D9 
49195  D9=D9-2 
49200  GOSUB  7000 
49205  D9=D9+2 

49210  REM : USE  N & NO  TO  GET  *£RH » W1 
49220  U1=P(3»N)-INT(P(3»N) ) 

49230  Z9=P ( 3 > N-l ) -INT <P ( 3 » N-l ) ) 

49240  W1  = 1000*(W1+N0*(Z9-W1  ) ) 

49250  REM : CALC  ABS  HUM  W2 
49252  06=D8 
49254  GOSUB  15000 

49256  U2=596*0. 01 *W1*V5/1013. 25*373. 1 6/< D8+273 . 1 6 ) 

49258  REM : CALC  DEW-PT-DEP  U3 
49260  GOSUB  21455 

49270  PRINT  @41J  USING  45320 J W9 f 0 . 3048*W9 , 08 » D3 t U1 t W8 » W8+0 . 048*W9 » U2 > U3 
49275  T9=W9 

49280  IF  M>0  THEN  49320 

49290  REM : SURF  PR  DONE.  OMIT  1000  MB  IF  SURF  PR  <=1000 
49300  IF  V8>1 000  THEN  49320 
49310  M=M+ 1 
49320  M=M+ 1 

49330  IF  M=8  THEN  49355 
49340  08= Y ( M ) 

49350  GO  TO  49070 

49355  PRINT  'END  OF  PROCESSING* 

49357  REM:  THIS  FILE  ALTERED  FOR  CONT  PRES  SENSOR  ? PK-MCW-78031 4 
49360  END 

49370  REM : FETCH  TAG  D9  FOR  PR  08 
4 9380  D9=P ( 2 > 400 ) 

49390  Z8=10000*(P(2»D9)-INT(P(2»D9)  ) ) 

49400  Z9=10000*(P<2»D9-1 )-INT(P(2r D9-1  ) ) ) 

49410  IF  08CZ9  THEN  49480 
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f — I 

I 

I I 

1 49420  IF  V8OZ8  THEN  49460 

49430  LIST  49420 

49440  PRINT  * PR  08  TOO  GREAT  FOR  TABLE  P<2»  >’ 

149450  STOP 

49460  F9*<Z9-ZB)*< INT(P(1 >D9-1)+1 ) -INT ( P ( 1 » D9 ) + 1 ) ) +0 . 5 
49465  D9=INT  < P < 1 > D9 ) + 1 ) +INT ( <V8-Z3)/F9) 

49470  GO  TO  49500 
49480  D9=D9- 1 
49485  IF  D9=l  THEN  49500 
49490  GO  TO  49390 
49500  RETURN 

49510  REM » USE  TAG  D9  TO  FIND  INTERP  BASE  N 8 FRACTION  NO  FROM  P<3r  ) 

49520  N=P ( 3 r 400 ) 

49530  Z8=INT(P( 1 rN) )+2 
49540  Z9=INT(P( 1 ,N-1 ) )+2 
49550  IF  D9CZ9  THEN  49620 
49560  IF  D90Z8  THEN  49600 
49570  LIST  49560 

49580  PRINT  ‘TAG  D9  > TABLE  TAGS* 

49590  STOP 

49600  N0=(D9-Z8)/<Z9-Z8) 

49610  GO  TO  49640 
49620  N=N-1 
49630  GO  TO  49530 
49640  RETURN 
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APPENDIX  F.  PROGRAM  LISTING  FOR  MIN  I REFRACT IONSONDE  ANALYSIS 


The  four  program  files  of  cassette  X,  Minirefractionsonde 
Analysis,  are  listed  in  the  four  figures  of  this  appendix  as  tabulated 
below. 


Cassette 

Number 

File  on 
Cassette 

Proqram  Name 

Figure 

Number 

X 

1 

CALIBRATION  AND  ACQUISITION 

F-l 

X 

2 

REDUCED  DATA  FILE  BUILDER 

F-2 

X 

3 

TEMP,  PRES,  HUM  TABLE  BUILDER 

F-3 

X 

4 

OUTPUT  REPORT  GENERATOR 

F-4 

100  GO  TO  1000 

110  DELETE  1000 » 31 10 

120  PRINT  ‘SET  HP  AS  A DDR  3 FOR  INPUT.  ENTER  MINUTES  OF  DATA  ( <34.5 

130  INI T 

140  Y=0 

.160  INPUT  M 

170  M=INT( 105*M+33) 

130  DIM  Z»<2> > T<M) >U4<17) f T*<14> 

135  T =0 

190  PRINT  33r32: 'PF7G1S175R' 

200  ON  SRQ  THEN  220 
210  WAIT 

220  FOR  N=1  TO  M 
230  INPUT  (?3.'U$ 

240  T$=SEG<U*r6r7) 

244  INPUT  33  .‘US 
246  INPUT  33  .‘US 
250  INPUT  i33:  US 
260  US  = 3EG ( US  * 7r  6 ) 

270  T S = US  STS 
230  T ( N ) =OAL ( TS ) 

234  INPUT  @3: US 


236 

290 

300 

310 

320 

3 30 
360 
370 
330 
390 
400 
410 

4 "'0 


INPUT  f? 3 : us 
NEXT  N 
OFF  SRQ 

PRINT  * PRS  CR  WEN  RDY  TO  ON  INPUT1 
INPUT  ZS 
PRINT  T 

PRINT  ‘ENTER  1<  REDISPLAY)  OR  2 (CONTINUE)  OR  3 (.ABORT)1 
INPUT  ZS 

GO  TO  VAL(ZS)  OF  310>410>390 

PRINT  ‘RUN  ABORTED1 

END 

PRINT  1 PREPARE  TO  STORE  DATA  ON  INTERNAL  TAPE . ENTER  FILE 
INPUT  Y 


430  PRINT  "WILL  STORE  IN  FILE  UY:1.  ENTER  4 WEN  RDY1 

440  INPUT  ZS 

450  IF  ZS=,+1  THEN  490 

460  LIST  410 

470  PRINT  ’RUN  ABORTED1 

430  STOP 

490  FIND  Y 

500  MARK  1,10*<M+1) 

510  FIND  Y 
515  WRITE  M 

520  FOR  N-M  TO  1 STEP  -1 
530  WRITE  T < N ) 

540  NEXT  N 

550  PRINT  ‘FILE  WRITTEN1 
560  END 
1000  PAGE 


NO . * 
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NAOC  AVTD 


I 

I 


1005 

1010 

1020 

1030 

1040 

2000 

2010 

2020 

2030 

2050 

2060 

2070 

20S0 

2110 

2120 

2130 

2140 

2144 

2146 

2150 
2160 
2170 
2130 

2151 

2132 

2133 

2135 

2136 

2138 

2139 
2210 
2220 

2432 
2434 
2436 

2433 
2440 
2450 
2470 
2480 
2490 
2500 
2510 
2520 
2530 
2532 
2534 
2536 
2538 
2560 
2570 


PRINT 

PRINT 

PRINT 

INPUT 

GO  TO 

INIT 

PRINT 

PRINT 

PRINT 

PRINT 

INPUT 

PRINT 

INPUT 

PRINT 

INPUT 

PRINT 

INPUT 

PRINT 

INPUT 

PRINT 


■ REFRACTION  3ALLQ0NS0NDE  DATA  ANALYZER  — 

■ENTER  PROG  SELECTION  1 OR  2:  i-CALXACG  2-ANALYSIS  — 

•7 

Z OF  2000  t 3000 

* ’CALIBRATION  AND  DATA  ACQUISITION’ 


■ENTER  LAUNCH  DATE  AND  NUMBER  ( YYMMDD  NN)  --  " ; 

D»  N$ 

•ENTER  ZULU  LAUNCH  TIME  ( HHMMS3 ) 

T $ 

’ENTER  ALT  X PRES  AT  LAUNCH  < M > MB ) --  “> 

PI  > P2 

■ENTER  SONDE  SERIAL  NO.  ( NNNNNN ) --  •/ 

S$ 

■ENTER  REFERENCE  VOLTAGE  RATIO  — •> 

NO 

•THERM  LOCKIN:  ENTER  NOHnS  AND  DEG  C (RR.RRR  » TT . T ) --  ■ i 


INPUT  R3  r T3 

PRINT  ‘ENTER  HUML  LOCKIN  RES  IN  KOHMS  (RR.RRR)  — '? 

INPUT  R4 
DIM  L ( 3 > 6 ) 

PRINT  'ENT  PRES  COEF  L(lrl-6) 

INPUT  L(1>1) « L ( 1 > 2 ) f L ( 1 > 3 ) » L ( 1 > 4 ) ?L( l r 5)  • L ( 1 ? 6 ) 

PRINT  ‘ENT  PRES  COEF  L<2»l-6>  ’> 

INPUT  L<2»l)»L<2»2)»L<2f3)»L<2»4)»L(2»5)»L<2»6> 

PRINT  'ENT  PRES  COEF  L(3rl-o)  * ? 

INPUT  L ( 3 f 1 ) > L ( 3 > 2 ) » L ( 3 > 3 ) » L < 3 » 4 ) » L ( 3 f 5 ) r L ( 3 r 6 ) 

PRINT  ‘ENTER  OPERATOR-DATE  CODE  C ABCYYMMDD  > — '? 

INPUT  0$ 

PRINT  ‘IF  UANT  COPY  OF  THIS  PAGE  > ENTER  + (IF  NOT  ? ENTER  -)  — 

INPUT  Z* 

IF  Z*<>’+*  THEN  2440 
COPY 


PAGE 

PR  I ’ DA TE( YYMMDD ) : * j D » * LAUNCH  NO.‘?N*:’  SONDE  SER . NO. 

PRINT 

PRI  'THERM  LOCK-IN:  *?R3»'  KOHMS  AT  'JTSr4  DEG  C’»'  HUML.'  ’:R4; 
PRINT 

PRINT  • 1 > 1 LAUNCH  * 

PRINT  ‘TIME  ( HHMMSS ) * . T $ 

PRINT  *F'l  ALT.  <M)*rPl 
PRINT  * P2  PRES.  ( MB ) 1 > P2 
PRINT 

PRINT  ‘PRESSURE  COEF F OF  ARRAY  L(3.6)  ARE  AS  FOLLOWS:* 

PRINT  L 
PRINT 

PRINT  • • . Oi 

PRINT  ‘WANT  CHANGE  CAL  DA  ,'A?  ( ENTR  + IF  YES>  - IF  NO>:'r 


r 


•‘St 
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k 


THEN  2584 


2575  INPUT  Z5 
2580  IF  Z«>*-* 
2582  GO  TO  2630 


STOP" 


SONDE  SER . NO.  ‘»S5 
C* • * HUML:  * ?R4i  "K" 
" »F'2?  "MB' 

2639  PRINT  841 : "PRESSURE  COEFF  OF  ARRAY  L(3»6)  ARE  AS  FOLLOWS:" 

2640  PRINT  841 :L 
2645  PAGE 

2660  F'RI  'PREPARE  TO  STORE  CAL  DATA."  NOTE  CASS  NO.  S LOAD  CASS  IN  4051* 
2665  PRI  "(ASCERTAIN  FILE  1 ON  CASS  HAS  BEEN  HARKED  BEFORE  CONTINUING)' 
2670  PRINT  'ENTER  CASSETTE  NO.  AND  ADDRESS  OF  CASSETTE  UNIT  CNN)  — *5 

2680  INPUT  X 
2690  TLIST 

2695  PRINT  "ANY  FILE  * >=  SPECIFIED  * WILL  BE  DESTROYED* 

2700  PRINT  "ENTER  FILE  NO.  FOR  STORING  CAL  DATA  (FF)  — "5 

2710  INPUT  Z1 

2720  FIND  Z1 

2730  MARK  1,3000 

2740  FIND  Z1 

2750  PRINT  @33:D,N«»T$,P1 ,P2,S$, T3,R3,R4,L,K0,0$ 

2755  CLOSE 

2760  PRINT  "CAL  DATA  STORED  IN  FILE  " iZli ‘ ON  CASSETTE  "JX?"  ’ 50* 

2761  PRINT  'IF  WANT  TO  WRITE  ANOTHER  CAL  DATA  FILE,  ENTER  + (-  IF  NOT)' 

2762  INPUT  Z 5 

2763  IF  Z5="+‘  THEN  2660 
2765  GO  TO  110 

2990  STOP 

3000  REM  ."DATA  ANALYSIS  STARTS  HERE 
3010  DELETE  100*2990 

3020  PRINT  'WILL  READ  DATA  ANALYSIS  PROG  FROM  INTERNAL  CASSETTE  FILE  2' 

3030  PRINT  ' ENTER  R WEN  RDY  --  *i 

3040  INPUT  35 

3050  IF  S 5 = ' R " THEN  3090 

3060  LIST  3020 

3070  PRINT  "RUN  ABORTED" 

3080  STOP 
3090  FIND  2 
3100  APPEND  3110 

3105  REM "FILED  IN  CASS  3,  FILE  1.  PK-MCW-7S021 6 

3107  REM:M0DIFIED  FOR  CONTINUOUS  PRESSURE  SENSOR.  PN-780216 

3108  REMJMODIFICATION-  ADD  OF  REFERENCE  VOLTAGE  RATIO  <K0>  INPUT 
3110  REMJDATA  ANALYSIS  PROG  WILL  BE  APPENDED  HERE 


2584 

PRINT 

" ENTR  CHANGE 

(EG 

2536 

STOP 

2588 

GO  TO 

2440 

2630 

COPY 

2632 

PRINT 

841  : 

2634 

PRINT 

941  : 

2636 

PRI  841  .“DATE (YYMMDD)  .* 

2637 

PRI  8412' THER  LOC- 

in: 

2638 

PRINT 

841  : 'LAUNCH 

ALT  : 

P 1 = N N . N ) THEN  RUN  AFTER 


' i D ? * LAUNCH  NO . ' ; N5 ; " 
?R3? " KOHMS  8 ‘ JT3J " DEG 
• ;pl  ; *M"  , 'LAUNCH  PRES  = 
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1 


3110  REM  I THIS  PROGRAM  (FROM  FILE  2)  ASSIGNS  FILE  NOS.  TO  BE  PROCESSED 

3111  DELETE  L 

3112  DELETE  2991,3109 

3113  DIM  L ( 3 * 6 ) 

3114  PRI  'LOAD  ■•SAFE”  DATA  CASSETTE  INTO  CONSOLE.  ENTER  FILE  NOS.  OF* 

31 15  PRINT  'CALIBRATION  AND  DATA  FILES  TO  BE  PROCESSED  ( CC  DD)  --  *? 

3118  INPUT  Z9,ZS 

3119  GO  TO  4225 

3120  REM  5 READ  CAL  FILE 

3121  FIND  Z? 

3122  INPUT  033:D1 ,N0,T1 ,F'l , P2 , SO » T3 , R3 , R4 , L , KO 

3123  GO  TO  32S0 

3150  REM  5 LOOKING  FOR  DATA  SPIKES 

3151  IF  A(N9)=0  OR  C(N9)=0  THEN  3170 

3152  IF  A ( N9 ) =>C ( N9 ) THEN  31S2 
3154  L9=C(N9)/A(N9> 

3156  L8=B(N9)/A(N9) 

3158  L7=B(N9)/C(N9> 

3160  GO  TO  3163 
3162  L9=A ( N9 ) /C( N9 ) 

3164  L8=A(N9)/B(N9) 

3166  L7=C(N9)/B(N9) 

3168  IF  L8>L9*1.02  OR  L7a/L9/1.02  THEN  3174 

3170  L9= 1 

3172  GO  TO  3176 

3174  L9  = 2 

3176  RETURN 

3260  PRINT  'ENTER  TIME  INTERVAL  (SEC.)  FROM  LAUNCH  TO  XMITTER  ON  --  '? 

3262  INPUT  TO 

3264  PRI  'FOR  AUTOCOP  Y IF  AGE , ENTER  1?  AUTOPAGE  ONLY,  2;  NEITHER,  3 — ' 
3266  INPUT  S9 

3268  GO  TO  S9  OF  3274,3230,3236 
3270  END 

3272  REM J UR I TTEN7704 15, LOADED 770504, DEBUGGED? 70505 , INTEGRATED?"^?  05  MCU 
3274  REM : START  HERE  FOR  AUTOCOPY  SPACE 

3276  PRINT  @32,26:3 

3273  GO  TO  3290 

3230  REM : START  HERE  FOR  AUTOPAGE 
3232  PRINT  @32, 26  .'2 
3284  GO  TO  3290 

3286  REM : START  HERE  FOR  MANUAL  COPYSPAGE 
3238  PRINT  @32, 26 JO 

3290  REM : READ  i UNPACK  DATA  FROM  FILE 
3292  DIM  A(4),B(4),C(4),D<4) 

3294  RESTORE  3298 

3296  READ  @34 : T9 , T8 , T7 , T6 , A , B , C , D 

3298  DATA  0, 0,0, 1,0,0, 0,0, 0,0,0,0,0,0,0,0»3»0fc~5»3*0fc.  — 5,1. 0E~3,2«0E—5 
3300  REM.*  INITIALIZE  FOR  GETTING  BIG  PER  RATIOS  USING  SIG  LEV  SUBRT 
3302  DIM  P ( 3 , 400 ) ,S(3,8) 

3304  FOR  19=1  TO  3 
3306  FOR  18=1  TO  400 
3308  P(I9,I8)=0 
3310  NEXT  18 
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3312  NEXT  19 
3314  RESTORE  3313 

3316  READ  @34 J P < 1 » 400 ) » P < 2» 400 ) » P< 3 » 400) » S 

3318  DATA  0 r 0 > 0 > 0 . 007  * 0 > -9 . 9E  + 99 » 9 . 9E  + 99 , 0 » 0 » 0 1 0 1 0 . 007 > 0 r -9 . 9E  + 99 
3320  DATA  9 . 9E+99 > 0 > 0 » 0 » 0 > 0 . 008 , 0 » -9 . 9E+99 » 9 ♦ 9E+99 , 0 » 0 » 0 > 0 
3322  PRINT  'SELECT  DATA  SOURCE:  1=PACKED  FILE*  2-REDUCED  FILE  — ' f 

3324  INPUT  39 

3326  GO  TO  S9  OF  3346 > 3330 
3328  STOP 

3330  PRINT  'PUT'  'SAFE*  'CASS  (FILE  23  = P ARRAY)  IN  4051.  ENT  R WN  RDY  - * 

3332  INPUT  Si 

3334  IF  S$= ' R ' THEN  3338 

3336  GO  TO  3330 

3338  DIM  P ( 3 r 400 ) 

3340  FIND  23 

3342  READ  @33 JP 

3343  PRINT  'CK  S CORRECT  P<MrN)r  THEN  "RUN  (LINE  * AFTER  STOP)".' 

3344  STOP 

3345  GO  TO  ’382 

3346  FIND  13 
3348  READ  @33  .*  Z? 

3350  26=0 

3352  Z6=Z6+1 
3354  READ  033 JZO 
3356  GO  TO  3360 
3358  PRINT  @41 :Z6,Z0t 

3360  REM J UNPACK  FIRST  HALF  ZO  TO  GET  PERIOD  Z1 

3362  Z1=INT (Z0)/1 . 0E  + 8 

3364  REM : PROCESS  UNPACKED  UALUE 

3366  GOSUB  3334 

3368  REM : UNPACK  S PROCESS  SECOND  PERIOD 
3370  Z1=(Z0-INT(Z0) )/lOO 
3372  GOSUB  3384 

3374  R E M : W A S THIS  WORD  THE  LAST  IN  FILE7 

3375  REMJSEU  SEC  PRE-LAUNCH  DATA  MUST  BE  IN  PACK  FILE  FOR  SURF  VALUE 

3376  IF  Z6=Z7  THEN  3378 

3377  GO  TO  3352 

3378  T9=T9+4 

3379  A=0 

3380  GOSUB  3498 

3381  PRINT  'LAST  ENTRY  HAS  BEEN  READ  FROM  PACKED  DATA  FILE* 

3382  GO  TO  3975 

3383  GO  TO  4195 

3384  REM.*  TESTING  $ MAINTAINING  SYNC 

3385  REM T9  SAMPS  ENTERED  STACK  SINCE  LAUNCH.  T 3 = LAST  REF  TAG 

3386  IF  T9=0  THEN  3512 

3388  GO  TO  T6  OF  3396  * 3406 > 3406 » 3466 
3390  LIST  3388 
3392  PRINT  'T6=' i T6 
3394  STOP 

3396  REM  5 CYCLE  SHIFT 
3398  A0=A ( 4 ) 

3400  A=B 
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3402  B=C 
3404  T9=T9+4 

3406  IF  Z1>1/L1  AND  ZK1/L0  THEN  3440 
3408  IF  Zl=>l/L2  AND  ZlOl/Ll  THEN  3416 

3410  REM  J Z 1 NOT  DATA  AND  NOT  REF.  APPLY  NGN-VALID  TAG  (.1) 

3412  Z1-0.1+Z1 
3414  GO  TO  3440 

3416  GO  TO  T 6 OF  3420 > 3426 > 3432 r 34 13 

3418  STOP 

3420  C(1 )=0.99999 

3422  T 6=  T 6+1 

3424  T7=T7+ 1 

3426  C(2)=0. 99999 

3428  T6=T6+1 

3430  T7=T7+1 

3432  C(3)=0. 99999 

3434  T 6 = T6+ 1 
3436  T7=T7+1 
3438  GO  TO  3384 

3440  GO  TO  T 6 OF  3448 » 3454 > 3460 » 3466 

3442  LIST  3440 

3444  PRINT  ,T6=,?T6 

3446  STOP 

3448  C(1)=Z1 

3450  T6=2 

3452  GO  TO  3592 

3454  C(2)=Z1 

3456  T 6 = 3 

3458  GO  TO  3592 

3460  C(3)=Zl 

3462  T6=4 

3464  GO  TO  3592 

3466  IF  Zl=>l/L2  AND  Zl  >1/L1  THEN  3482 

3468  REM : REF  EXPECTED  BUT  MISSING  ? ADD  SYNC-LOSS  TAG  .99  TO  D D DR  SAMPS 
3476  C ( 4 ) =Z1 

3478  C=0 . 99+C 

3479  GO  TO  3484 

3482  T8=T9+T7 

3483  C ( 4 ) =Z1 

3484  T6= 1 

3435  PRINT  * T9 , T7 , T3= 1 t T9 > T7 , T3 

3486  PRINT  *8=‘  i T9+T7-7+B<  1 ) » T9+T7-6  + B(2;  . TQ+  T7- 5+  B < 3 • « T?i-T 7-4  + B(4  ■ 
3488  REM J RESTORE  CYCLE  IN  ARRAY  B*  IF  NEEDED 
3490  GOSUB  3594 

3492  REMJCALCULATE  PERIOD  RATIOS  IN  ARRAY  A 
3494  GOSUB  3664 

3496  PRINT  94 1 : A ( 1 > > A < 2 ) » A ( 3 ) » T9+T7-8+A ( 4 ) 

3498  REM : SCAN  ARRAY  A % DETECT  SIG  RATIOS 
3500  FOR  N8= 1 TO  3 
3502  F'9  = N8  + A ( N8  ) 

3504  N9-T9+T7-12+N8 
3506  GOSUB  3695 
3508  NEXT  N8 
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3510  GO  TO  3592 

3512  REM : LOOKING  FOR  FIRST  SYNCHRONIZED  CYCLE 

3514  GO  TO  T 6 CF  3516 » 3522 > 3522 > 3522 > 3532 
3516  REM  J IS  Z1  4 REF  S CGNAL? 

3515  IF  Z101/L2  AND  Z1<  = 1/L1  THEN  3536 
3520  GO  TO  35S8 

3522  REM.’ IS  Z1  A DATA  SIGNAL' 

3524  IF  ZlOl/Ll  AND  Z1<=1/L0  THEN  3542 
3526  PRINT  ‘FALSE  START.  T6=‘?T6 
3528  T6= 1 
3530  PO  TO  3512 

3532  IF  Z101/L2  AND  Z1<=1/1.1  THEN  3566 

3534  GO  TO  3526 

3536  T6=2 

3538  B ( 4 ) =Z1 

3540  GO  TO  3588 

3542  GO  TO  T6  OF  3544 , 3548 » 3554 > 3560 > 3544 

3544  LIST  3542 

3546  STOP 

3548  T 6 = 3 

3550  C(1)=Z1 

3552  GO  TO  3588 

3554  T6=4 

3556  C( 2 ) =Z1 

3558  GO  TO  3588 

3560  T 6 = 5 

3562  C ( 3 ) = Z 1 

3564  GO  TO  3588 

3566  REMJT?  IS  NO.  OF  SAMPS  TO  ‘ENTER*  STACK  SINCE  LAUNCH 

3568  T9=T0*10+8 

3569  T8=T9 

3570  T6= 1 
3572  C < 4 ) =Z1 

3574  PRINT  Z6+T7+Z1 
3576  PRINT 

3578  PRINT  ‘LAST  5 SAMPS  ARE  FIRST  CYCLE  PASSING  RDDDR  RANGE  TEST’ 

3580  PRINT 

3532  PRINT  ‘REF  STARTING  1ST  SYNC  CYCLE  (TIME-TAG  + PER):  ‘?TP-4+&(4) 
3534  PRINT  'FOLLOWING  SAMPS  ARE  OUTPUT  FROM  SYNC  TEST  & MAINTENANCE' 

3586  GO  TO  3592 

3588  REM:PRINT  FILE  ENTRY  N0.(Z6>  Z PERIOD 
3590  PRINT  Z6  + T7  + Z1 r * 'J 

3592  RETURN 

3594  REM  .’VALIDATE  DATA  IN  ARRAY  C USING  LIMITS  IN  D 
3596  FOR  N9= 1 TO  4 

3598  GO  TO  N9  OF  3606 > 3600 . 3604 > 3606 
3600  D<2) =400*0(2) 

3602  GO  TO  3606 
3604  0(2) =0(2) /400 

3606  IF  ABS(A(N9)-C(N9) )<D(N9)  OR  ABS ( B ( N9 ) -C ( N9 ) ) <0 ( N9 ) THEN  3610 
3608  PRINT  ‘CC;N9»')  FAILS  VAL  TEST  . TIME-TAGGED  PER . = ' » T9+T7-4  + N9+C ( N9 ) 
3610  NEXT  N9 

3612  REM : RESTORE  DATA  IN  ARRAY  B 
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3613  N8=0 

3614  FOR  N9  = 1 TO  4 

3615  IF  N9<>3  THEN  3619 

3616  IF  A<N9)/B<N9X1 .02  AND  A < N9 )/ B ( N9 ) >0 . 930392  THEN  3642 

3617  GOSUB  3150 

3618  GO  TO  L9  OF  3642.3628 

3619  IF  ABS(  A(N9)-B(N9>  XD(N9)  THEN  3642 

3620  REM.‘B<N9)N0T  OK.  CAN  C(N 9)  BE  USED  TO  RESTORE7 
3622  IF  ABS ( A ( N9 ) -C  < N9 ) ) <D < N9 ) THEN  3628 

3624  REM:C<N9)  NOT  OK  FOR  RESTORATION 

3626  GO  TO  3642 

3628  REM  .‘RESTORE  B(N9) 

3630  PRINT 

3632  PRINT  ‘RESTORED  PACK-WORD" ' r Z6-1 » ' FROM  ■ 5 T9+T7-8+N9+B C N9 ) t * TO  * 
3634  B(N9)=(A(N9)+C(N9) )/2 
3636  PRINT  T9+T7-8+N9+B ( N9 ) 

3638  PRINT 
3640  GO  TO  3646 

3642  REM  .‘NO  RESTORATION.  INCREMENT  COUNT  OF  NON-RESTORED  SAMPS  (NS) 

3644  N8=N8+ 1 

3646  NEXT  N9 

3648  IF  N8<4  THEN  3652 

3650  GO  TO  3660 

3652  PRINT 

3654  PRINT  ‘RESTORED  CYCLE  FOLLOWS:' 

3656  PRINT  T9+T7-7+B ( 1 ) . T9+T7-6+B ( 2 ) « T9+T7-5rB ( 3 ) . T9  + T7-4  + B ( 4 ) 

3658  PRINT 
3660  N8=0 
3662  RETURN 

3664  REM .’  CALCULATE  PERIOD  RATIOS  IN  ARRAr  A 
3666  IF  A ( 1 ) =0  AND  A(2)=0  AND  A(3)=0  THEN  3690 

3668  IF  A0O1/L2  AND  A0-  . = 1/L1  AND  ABS  < AO- A ( 4 ) XD  ( 4 ) THEN  3676 

3669  C ( 1 ) =0 . 999 

3670  C ( 2 ) =0 . 999 

3671  C ( 3 ) =0 . 999 

3672  PRINT  941 : ‘TAGS  ‘ i T9  + T7- 1 3 J ‘ S ‘ i T®+T7-o ; ■ FAIL  REF  COMP ) ADD  . ?99 ‘ 
3674  GO  TO  3690 

3676  FOR  N9= 1 TO  3 

3673  IF  A ( N? ) <1/L0  THEN  3oS6 
3680  LIST  367S 

3682  PRINT  * A ( N9 ) = *;A(N9) 

3686  A(N9)=(A0#(4-N9)+A(4)*N9)/(4*A(N9) ) 

3688  NEXT  N9 
3690  RETURN 

3695  REM : THIS  SBRT  MODIFIED  TO  MAnE  ENTIRE  LEVEL  SIG  IF  ANY 
3700  REMJON  THAT  LEVEL  ARE  SIG-  PK-7803 1 0 

3705  REMJINPUT  IS  ID-FAGGED  PERIOD  RATIO  P9  AT  TIME  N9  (SAMPLE  NO.) 
3710  REM : INPUT  TOLERANCES  ARE  S(M.l) 

3715  REM  5 OUTPUTS  ARE  TIME-TAGGED  SIGNIFICANT  LEVELS  P(M.N) 

3720  REMtP(M.400>  IS  NO.  OF  SIGNIF  LEVS  STORED 
3725  M=  INT  ( F'9  ) 

3730  REM:CALCULATE  NEW  SLOPE  S(M.5) 

3735  S(h.5)  = (P9-INT (P9)-(S(M.2)-INT  <S(M»2) ) ) ) / < N9- 1 NT ( S ( M . 2 > ) ) 
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— 1 

3740  REM J TEST  NEW  SLOPE 

3745  IF  S ( M * 5 ) =>S  ( M * 3 ) AND  S(M*5)OS(M*4>  THEN  3825 
3750  FOR  M9= 1 TO  M 

3755  IF  P ( M9  * P < M9 * 400 ) +1 ) <>0  THEN  3315 

3760  REM  J NEW  SLOPE  N.G.*  STORE  SIGNIFICANT  X LAST  VALUE  * EXPAND  LIMITS 
3785  5 ( M9  * 2 ) =S ( M9  > 8 ) 

3770  IF  F‘  ( M9  > 400 ) <399  THEN  3790 
3775  LIST  3770 
3780  STOP 

3790  PRINT  041 J*  ***  •*'  **•  M= * * M9 ) * S . L * = * * S ( M9  * 2 > 

3795  P ( M9 »P( M9 > 400 ) + 1 )»S(M9»2> 

3805  S<M9*3)=-9.0E+99 
3810  S<M9*4)=9.0E+99 
3815  NEXT  M9 

3820  GO  TO  M OF  3970 * 3970 * 3832 
3825  IF  P(1»P<  1.400)  +1)00  THEN  3750 

3830  IF  M=3  THEN  3835 

3831  GO  TO  3970 

3832  FOR  M9=l  TO  3 

3833  P ( M9  * 400 ) =P ( M9  * 400 ) + 1 

3834  NEXT  M9 
3335  FOR  M9=l  TO  3 

3840  REMJNEU  SLOPE  O.K.*  SHRINK  ACCEPTANCE  SLOPE  LIMITS  IF  NEEDED 
3845  IF  N9>INT ( S ( M9  * 2 ) ) THEN  3375 

3850  S < M9  y 8 ) =A  ( M9  ) - INT  ( A ( M9 ) +S  ( M9  * 1 ) - ( S ( M9  * 2 ) - I NT  ( S < M9  « 2 ) ) ) 

3855  S(M9f8)=S(M9»8)/(N9+M9-3-INT(S(M9f 2) ) ) 

3880  S ( M9  > 7 ) =A  < M9 )-INT(A(M9) ) -S  < M9 » 1 ) - ( S ( M9 » 2 ) -INT  < S ( M9  » 2 ) ) 1 
3885  S(M9f7)=S<M9>7)/(N9  + M9-3-INT(S(M9»2)  ) ) 

3870  GO  TO  3895 

3875  S(M9>8)=A(M9)-INT (A(M9) ) -S ( M9  » 1 )-(S(M9*  2 ) -I NT (S<M9?2)  ) ) 

3880  S(M9>6)=S(M9>8)/ (N9  + M9-3-INT  <S(M9»2) ) ) 

3885  S < M9  >7)=A(M9)-INT (A(M9) )+S(M9>l)-(S(M9»2)~INT (S(M9>2) ) ) 

3890  S(M9>7)=S(M9>7)/(N9  + M9-3-INT(S(M9»2)  ) ) 

3895  REM J TEST  MIN  SLOPE 
3900  IF  S<M9»6)>S(M9»3)  THEN  3915 
3905  REM J MIN  ACCEPTABLE  SLOPE  OK  AS  IS 
3910  GO  TO  3925 

3915  REM : UPDATE  MIN  ACCEPTABLE  SLOPE 
3920  S ( M9 1 3 ) =S ( M9  j 8 ) 

3925  REM J TEST  MAX  SLOPE 
3930  IF  S<M9»7XS<M9>4)  THEN  3945 
3935  REM J MAX  ACCEPTABLE  SLOPE  U.K.  AS  IS 
3940  GO  TO  3955 

3945  REM  5 UPDATE  MAX  ACCEPTABLE  SLOPE 
3950  S ( M9  t 4 ) =S ( M9  » 7 ) 

3955  REM: ACCEPTANCE  SLOPE  LIMITS  UPDATED » NOU  UPDATE  LAST  LEVEL 
3980  S(M9»8)=N9  + M9-3+<A(M9)-INT(A(M9)  ' ) 

3965  NEXT  M9 
3970  RETURN 

3975  REM  5 ARRAY  OF  SIGNIFICANT  PERIOD  RATIOS  HAS  BEEN  BUILT. 

3980  REM  J DATA  CONTINUITY  TESTING  AND  RESTORATION 

3985  REM:E9=RATI0  RATE  LIMIT*  E8-TEMP  RATE  LIM*  E7-PRES  LIM  E6*HUh  lIM* 

3990  REMJ£5*RATI0  RATE*  E4=THIS  TAG-RATIO*  E3*P0INTER  TO  LAST  CON  RAFIC 
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3995  PRINT  ‘TO  LIST  PER.  RATIOS  BEFOR  GAP  PROC'Gt  ENTR  --  •; 

4000  INPUT  S$ 

4005  IF  S$<>‘+‘  THEN  4030 

4010  PRINT  (341  : ‘TIME-TAGGED  PERIOD  RATIOS  BEFORE  GAP  PROCESSING' 

4015  PRINT  (341 JP 

4020  PRINT  ‘CK  DATA  LIST  i MANE  NEEDED  CHANGES  BEFOR  CONTINUING  RUN  * 

4025  STOP 

4030  DIM  P< 3.400) fR<3) 

4035  RESTORE  4045 

4037  REM:E3,£7>£6  ARE  ALLOWED  T»P»H  TRENDS-  RAT  OF  RAT  PER  FRAME 

4038  REM  J R IS  * OF  T-TAGS  OF  TREND  = NOISE 
4040  READ  034 : E8 * E7 , E6 > R 

4045  DATA  1 . 003 r 1 . 003 » 1 . 32 r 1 4 , 1 4 » 3 . 3 

4050  FOR  M=1  TO  3 

4055  PRINT  ‘ ‘f’START  M=*fM 

4060  GO  TO  M OF  4065 » 4075 > 4085 

4065  E9=E8 

4070  GO  TO  4090 

4075  E9=E7 

4080  GO  TO  4090 

4085  E9=E6 

4090  REM  .'FIND  FIRST  RATIO  IN  EXPECTED  RANGE 

4095  N=1 

4100  E3=P  < M » N ) 

4105  IF  E3-INTCE3)  0.1  AND  E3-INT ( E3 ) 0 . *5  THEN  4120 

4110  N=N+ 1 

4115  GO  TO  4100 

4120  E3=N 

4125  N=N+ 1 

4130  E4=P(M»N) 

4135  E5=(E4-INT(E4) ) / <P (M* E3 ) -INT ( P (M » E3 ) ) ) 

4140  E5=E5''(4/(INT(E4)-INT(P(MfE3)  )+R(M)  ) ) 

4145  IF  E5CE9  AND  E5>l/E9  THEN  4290 

4147  GO  TO  4150 

4148  PRINT  @41 5 * INVALID  SAMPLE  - * » E4 

4150  REMJRATIO  CHANGE  IS  EXCESSIVE . FIND  NEXT  RATIO  WITHIN  CHANGE  LIMI* 

4155  PRINT  * ‘ » 1 E5= ‘ t E5 
4160  S9=INT(P( 1 »P( 1 »400> ) ) 

4165  Z9= INT ( P < 3 » P ( 3 f 400 ) ) ) 

4170  IF  M-3  AND  INT(E4)>S9  AND  Z9-INT ( E4 ) <20  THEN  413U 
4175  GO  TO  4190 

4180  PRINT  ‘BAD  HUM  PAST  TEMP  END  S WITHIN  2 SEC  OF  HUM  END* 

4185  GO  TO  4245 

4190  IF  N<P ( M t 400 ) THEN  4375 

4195  REMJ  TRAP  AFTER  STATEMENT  3120 

4200  PRINT  ‘LOOK  AT  P(M»400)/Sf  ARE  THEY  OK ‘ 

4205  STOP 
4210  GO  TO  3122 

4215  PRINT  ‘REACHED  END  OF  FILE  PCJMf’N),  LAST  OK  SArtp=  * i P c M . £3 ) j 

4220  GO  TO  4245 
4225  L0=200 
4230  Ll=1925 

4235  L2= 1975  ; 

f % N 
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4240  GO  TO  3120 

4245  PRINT  'FOLLOWING  SAMPS  BEING  DELETED? ' 

4250  N=E3 
4255  N=N+ 1 

4260  PRINT  ' ■ » ' ' »P(M»N) 

4265  P ( M f N ) =0 

4270  IF  N=P ( M f 400 ) THEN  4230 
4275  GO  TO  4255 
4280  P ( M » 400 ) =£3 
4285  GO  TO  4375 

4290  REM ♦ RATIO  CHANGE  IS  WITHIN  EXPECTED  LIMITS 

4292  REM IS  DATA  TAGGED  'NO  GOOD' 

4293  IF  E4  - 1 N T < E 4 ) >0 . 99  OR  E4-INT  < E4  ) <.0 . 05  THEN  4143 
4295  IF  E3=N-1  THEN  4370 

4300  IF  INT<E4)-INT(P(MfE3> ><21  THEN  4320 
4305  LIST  4300 

4310  PRINT  'DATA  GAP  EXCEEDS  2 SEC.  SHOULD  IT  BE  RESTORED?  * 

4315  STOP 

4320  PRINT  'DATA  GAP  <2  SEC  BEING  RESTORED* 

4325  PRINT  'PRE-GAP  VALUE  ='5P<M»E3) 

4330  E3=E3+1 

4335  PRINT  ' P ( ' i M i * » ' * E3 i ' > CHANGED  FROM  '}P(M»E3>f*  TO  ' < 

4340  E2=E5~ ( (INT<P(M»E3>  ) - 1 NT  ( P < M » E3- 1 > > )/10> 

4345  P<MfE3>*INT(P<MfE3) > + ( P < M r E3- 1 > -INT ( P ( M » E3-1 > ) >*E2 
4350  PRINT  P ( M r E3  > 

4355  IF  E3=N- 1 THEN  4365 
4360  GO  TO  4330 

4365  PRINT  'POST-GAP  RATIO  = *?P<M»N> 

4370  E3=N 

4375  IF  N=>P(M»400)  THEN  4385 
4380  GO  TO  4125 
4385  PRINT  ' * . 'END  M*' JM 
4390  NEXT  M 

4395  PRINT  'TO  LIST  PER.  RATIOS  AFTER  GAP  PR OC'G,  ENTR  • '+••  --  'i 

4400  INPUT  S$ 

4405  IF  S$<>'+'  THEN  4420 
4407  PRINT  @41 : 

4410  PRINT  @41 : 'PERIOD  RATIOS  AFTER  GAP  PROCESSING* 

4415  PRINT  @41  :p 
4420  STOP 

4425  REM J NOW  IMPORT  SOFTWARE  FOR  PROCESSING  DATA  FROM  ARRAY. 

4430  PRI  'LOAD  "SAFE"  PROG  CASS  IN  INTERNL  UNIT.  ENTR  R WEN  ROY  --  * 
4435  INPUT  S* 

4440  IF  S$=  * R * THEN  4450 
4445  GO  TO  4430 
4450  FIND  3 
4455  DELETE  100>4445 
4460  APPEND  4750 

4750  REM : PROG  FILE  3 GETS  APPENDED  HERE 
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4750  REM  .'THIS  PROG  FROM  FILE  3 APPENDS  TO  END  OF  PROG  FROM  FILE  2 
4752  REM  .‘ANALYZE  DATA  FROM  INTERNAL  FILE 
4754  DELETE  100.4749 

4756  PRINT  'SELECT  APP  HUM  SBRT < 1 =INTERP . 2=EQN > — '; 

4758  INPUT  FO 

4760  REM J CALCULATE  MB  PRESSURE  (09)  AT  LAUNCH  ALT 

4762  REM.*  INPUTS-  PRESSURE  ALT  PI  < KFT ) • SURFACE  PRESSURE  P2  (MB) 

4763  GO  TO  4770 

4764  09= <P2~0. 190263-0. 0256553*P1 >~5. 255383 
4766  PRINT  'CALC  PRES  FROM  ALT=  '.*09;*  MB' 

4768  PRINT  @4 1 J ' CALC  PRES  FROM  ALT=  ' 509. ' MB* 

4770  PRINT  'OPR-ENTERED  EST  OF  SURF  PRES-  * i P2 i * MB' 

4772  PRINT  841  OPR-ENTERED  EST  OF  SURF  PRES=  *»P2»*  MB' 

4774  PRINT  'ENTER  EST  OF  VOLT  REG  TEMP  T4  — '? 

4776  INPUT  T 4 

4778  PRINT  041J'T4  = ■fT4J*  DEG  C‘ 

4779  GO  TO  9530 

5500  REM  J CALCULATE  TEMPS.  T9=RE3  RATIO.  T8  = THIS  APPARENT  TEMP.  T7  = LAS 

5502  REM : APP  TEMP.  T6=THI3  TIME.  T5=LAST  TIME 

5503  PRINT  'STARTING  TEMP  CALCS' 

5504  GO  TO  5522 

5506  REM » JO  l J1  ARE  LAG  COMP  FACTORS  FOP  TEMP  i HUM  RANGING  0 TO  1 

5508  RESTORE  5509 

5509  DATA  -99.0.0 

5510  READ  034:T9.JO.J1 

5511  PRINT  ‘COMPS  SET  AT  TJ'rJOr*  S HiSJU'!  WANT  CHANGE?  <lf/2-)  - 

5513  INPUT  Z9 

5514  GO  TO  Z9  OF  5516.5520 

5515  GO  TO  5511 

5516  PRINT  * ENTR  COMP  SETTINGS  IN  RANGE  0-1  CNONE-FULL)  ( T . TT  H . HH ) - 

5517  INPUT  J0.J1 

5518  GO  TO  5511 

5520  PRINT  @41 J*  LAG-COMP  LEVELS  ARE  SET  TO  TJ'JJOJ'  S Ht'iJl 

5522  FOR  N= 1 TO  P( 1.400) 

5523  T9=P (l.N)-INT(P(l.N)) 

5525  T6=INT ( P ( 1 . N ) ) 

5530  IF  T9>0 . 1 THEN  5560 

5550  GO  TO  5640 

5560  REM : CALCULATE  RES  RATIO 

5562  REM:  WILL  BYPASS  THER  RES  RATIO  CALC  FOR  BAROSWITCH  DROPSONDE 

5563  GO  TO  5568 

5565  T9=(52.713/T?-47.718)/R3 
5568  T9-22. 1*< 1/<N0*T9)-1 )/R3 
5570  REM  .‘CALCULATE  APPARENT  TEMP 

5575  T8=65 .3/(1 -SOR ( 1 -0 . 0480921 *LOG ( T9/3 . 3785E-4 ) ) )-273. 16 
5580  P( 1 .N)=INT(P( 1 .N) ) +T3/1000+0 . 1 

5584  GO  TO  5590 

5585  PRINT  'TIME-TAGGED  APPARENT  TEMP ( MI LL I DEG  C)*'?P(1.N) 

5590  IF  T7 >-70  THEN  5615 

5600  LIST  5590 
5610  STOP 
5615  GO  TO  5670 

5620  REM J LAG-COMP  OF  TEMP?  JO=COMP-LEVEL  SETTING  <0-1 : NONE-FULL  ) 
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5630  Z9= INT ( (T6+T5)/2+0.5) 

5632  P( 1 ,N-1 )=Z9+0. 1+1 .0E-3*< < T8+T7 ) /2+ ( T8-T7 ) / ( T6-T5 ) *20* JO ) 

5634  GO  TO  5640 

5635  PRINT  ' TAG 2 * » INT (P < 1 » N ) ) > * LC  TEMP 2 * J (P  < 1 , N > -INT  < P < 1 , N ) > -0 . 1 ; * 1000 
5637  PRINT  1000*  ( P ( 1 > N- 1 ) - INT  ( F'  ( 1 » N-l ) ) -0 . 1 ) 

5640  T7  = T8 
5650  T5=T6 

5670  NEXT  N 

5671  GO  TO  5700 

5672  P< 1 , P( 1 , 400) ) =0 
5674  P( 1 >400)= P< 1 , 400 ) - 1 
5680  PRINT  •END’ 

5690  STOP 

5700  PRINT  'STARTING  PRES  CALCS' 

5705  REM:  OVERLAY  P<2,N>  ARRAY  WITH  PRES  VALUES 
5710  D7=l 

5720  FOR  N= 1 TO  P<2,400> 

5730  D9= INT ( p < 1 » N ) ) 

5740  D8=  < P ( 1 , N > -0 . 1 -D9  > * 1 000 
5745  IF  08=999  THEN  5764 
5750  GOSUB  3750 
5760  P(2»N)=D9+1+P5/ 10000 

5763  GO  TO  5765 

5764  F'  ( 2 , N ) = INT ( P ( 2 • N ) )+0.9999 

5765  NEXT  N 

5770  PRINT  'END  OF  PRES  CALC ' 

6000  REM : OVERLAY  P(3,N>  ARRAY  WITH  COMP  HUM  VALUES. 

6020  REM.'C9=LAST  APP  HUM,  CS=LAST  APP  HUn  TIME-TAG , C7  = MEAN  APP  HUM 
6040  REM:C3=MEAN  TAG.  C5=  APP  HUM  RATE.  C^=THIS  APP  HUM  TIME  TAG 
6050  PRINT  'STARTING  HUM  CALCS' 

6060  RESTORE  6100 
6080  READ  0342C9.D7 
6100  DATA  999,1 
6160  FOR  N= 1 TO  P(3,400) 

6130  REM CALC  HUML  RES  RATIO  RS 
6200  R8=P(3,N)-INT(P(3,N) ) 

6209  PRINT  'PER  RATIO  = ' 5R3J 

6210  IF  R3=0  THEN  6360 

6215  REMJ  WILL  BYPASS  HUML  RES  RATIO  CALC  FOR  BAROSWITCH  DROPSONDE 

6217  GO  TO  6235 

6220  R8  = 52. 713/R8-47. 713-7. 1 

6230  R8=250*R8/(250-R3)/R4 

6235  R8=249* ( 18 . 2-RS*K0*25 . 35 ) / ( K0*R8*274 .35-13.2) /R4 

6239  PRINT  ■ RES  RATI0='JR8 

6240  REM  .'FETCH  CORRESPONDING  COMP  TEMP  T6  FOR  APP  HUM  CALC 
6260  C4=INT(P(3,N) ) 

6270  D9=C4-2 

6279  PRINT  'TIME  T AG=  ' » C4  ? 

6280  D8=  ( F‘  ( 1 » N ) - 0 . 1 -D9  ) *1000 

6281  PRINT  ' TEMP='fD8; 

6300  T 6=D8 

6320  REM  .'CALC  APP  HUM 
6330  GO  TO  FO  OF  6340,6350 
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LIST  6330 
STOP 

G0SUB  8000 
GO  TO  6357 
G0SUB  8600 

PRINT  * APP  H=*5H9 
GO  TO  6845 

IF  C9>101  OR  H9=?99  THEN  6370 
GO  TO  6380 
IF  NO  1 THEN  6800 
P ( 3 * N- 1 ) =INT ( P ( 3 » N-l ) ) +0.999 
GO  TO  6800 

REM  J CAL  MEAN  AP  HUM  C7,  MEAN-TAG  TEMP  C6  l HUM  RATE  C5  FOR  HUM  SEG 
C7=<H9+C9)/2 
C3= INT ( ( C4+CS ) /2+0 . 5 ) 

C5=<H9-C9)/(C4-C8)*10 

REMJFETCH  COMP  TEMP  C6  FOR  TIME-TAG  C3 
D9=C3 

PRINT  'TIME*  * r D9/10  ? 

G0SUB  7000 

PRINT  ' TEMP* ' » DS » 

IF  D80999  THEN  6320 

IF  C3-I NT (P(lfP(l» 400 ) ) > 0 AND  C3-INT ( P ( 1 r P ( 1 r 400 ) ) ) 04  THEN  6510 
GO  TO  6520 

PRINT  'TAG  IS  WITHIN  4 SEC  OF  TEMP  END.  LAST  TEMP  WILL  BE  USED* 

D8=C6 

PRINT  ' TEMP* * *D8 

C6=D8 

GOSUB  9000  I 

PRINT  ' ' , 'COMP  H= ' ? G6 

IF  G60100  THEN  6560 
LIST  6345 

PRINT  'COMP  HUM  CHANGED  FROM  *;G6 ?'  TO  100?  TIME  TAG*  * ? C6 
P < 3 * N-l ) =C3  + 1 . OE-3* ( Go  MIN  100) 

REM : SET-UP  FOR  PROCESSING  NEXT  N 
C9  = H9 
CS=C4 

REM  .'WRITE  BALLOON  HUM 
P(3»N)*D9+2+H9/1000 
NEXT  N 
GO  TO  6940 
P<3»P( 3-400) ) =0 
P ( 3 * 400 ) =P  < 3 > 400 ) - 1 

PRI  'COMP  HUM  VALUES  HAVE  BEEN  STORED  IN  REDUCED  DATA  FILE  P(3*N>' 

PRINT  041 iP 
GO  TO  9100 

REM J APPEND  TEMP-FETCH  HERE 

REMJFETCH  COMP-TEMP  DS  FOR  TIMETAG  D9  USING  POINTER  D7 
GO  TO  7040 

IF  INTCPC 1 , 1 ) )<=D9  AND  INT ( P ( 1 » P < 1 , 400 ) ) ) =>D9  THEN  7040 
PRINT  'TIME-TAG  D9  C?D9?')  IS  OUTSIDE  LIMITS  OF  REDUCED  TEMP  DATA* 
D8=999 
GO  TO  7360 
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7040  IF  D7=>1  AND  07<=P( 1,400)  THEN  70&0 

7050  IF  D7O0  THEN  7080 

7060  D8=999 

7070  GO  TO  7360 

7080  D8=  INT  < F'  ( 1,07)  ) 

7100  IF  OSOD9  THEN  7160 
7120  D8=1000*<P< 1 ,07 )-0. 1-08) 

7140  GO  TO  7360 

7160  IF  08 <09  THEN  7220 

7180  07=07-1 

7200  GO  TO  7040 

7220  07=07+1 

7240  08=INT(P( 1,07)  ) 

7260  IF  08=09  THEN  7120 
7280  IF  08 >09  THEN  7320 
7300  GO  TO  7220 

7320  08= ( 09- 1 NT (P( 1 ,07-1 ) ) )/< 08-INT <P< 1 , 07-1 ) ) ) 

7340  08=08* <P< 1 , 07) -INT  < P < 1 , 07 ) ) - ( P ( 1 , 07-1 )-IMT(P< 1 , 07-1 ) ) ) ) 

7350  03=1000* <P< 1 ,07-1 )-INT(P( 1 ,07-1 ) )-0. 1+08) 

7360  RETURN 

3000  REM  5 CALC  XRH-INPUT  COMP  TEMP  T6  % MUML  RATIO  R2  f OUTPUT  ZRH  H9 

3001  IF  T 60  999  THEN  3005 

3002  H9=999 

3003  GO  TO  3515 

3005  DATA  0 . 52 , 0 . 62 , 0 . 74 , 0 . 32 , 0 . 9 , 1 . 1 , 1 . 3 , 1 . 63 , 2 . 23 

3010  DATA  3.1,4.2,6.5,10.2,17,29,45,45,45,45,45 

3015  DATA  0.55,0.65,0. 78-0.35,0.92, 1 .06, 1 .23, 1 . 4, 1 . 75 

3020  DATA  2.35,3.1,4.1,6,9.3,17,26,44,36,170,250 

3025  DATA  0.585,0.695,0.3,0.875,0.94,1.05,1.175,1.32,1.53 

3030  DATA  2,2.5,3.25,4.5,7.3,12,13.5,29,60,140,220 

3035  DATA  0.61,0.72,0.32,0.89,0.95,1.04,1.15,1.27.1.47 

3040  DATA  1 . 35 , 2 . 3 , 3 , 4 , 6 . 4 , 1 0 , 16 , 23 , 40 , 1 26 , 206 

8045  H 1 =0 

3050  H2=0 

3055  H3=0 

3060  H4=0 

3065  IF  T6  = .:  -40  AND  T6<0  THEN  3075 

3070  GO  TO  3090 

3075  RESTORE  8005 

3080  HI =999 

3085  GOSU&  3290 

3090  IF  T6=>-40  AND  T6<25  THEN  3100 

3095  GO  TO  8115 

3100  RESTORE  8015 

3105  H2=999 

3110  GOSUB  8290 

3115  IF  T 6>0  AND  T6  40  THEN  8125 

3120  GO  TO  8140 

3125  RESTORE  3025 

3130  H3=999 

3135  GOSUB  8290 

3140  IF  T6>25  A NO  T 6<=40  THEN  8150 
3145  GO  TO  3165 
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3150  RESTORE  3035 
3155  H4=999 
3160  GOSUB  S290 

3165  IF  T6C-40  OR  To>40  THEN  3175 
8170  GO  TO  8190 
3175  LIST  8165 

3180  PRINT  * T6=  * 5 T6*  * - TILT!!!  TEMP  EXCEEDS  HYG  RATIO  LIMITS* 
8131  PRINT  ‘WILL  SET  H9=999  % RETURN* 

3132  GO  TO  3002 
3135  STOP 


3190 

REM : TEMP  INTERPOLATION  OF 

RH 

BEGINS 

HERE 

8195 

IF  HI >0  AND  H2=0 

AND 

H3  = 0 

AND 

H4  = 0 

THEN 

3453 

8200 

IF  H 1 =0  AND  H2>0 

AND 

H3=0 

AND 

H4  = 0 

THEN 

3465 

8205 

IF  H 1=0  AND  H2=0 

AND 

H3>0 

AND 

H4  = 0 

THEN 

3475 

8210 

IF  HI =0  AND  H2=0 

AND 

H3=0 

AND 

H4>0 

THEN 

8485 

3215 

IF  H1>0  AND  H2>0 

AND 

H3  = 0 

AND 

H4  = 0 

THEN 

3225 

8220 

GO  TO  8235 

3225 

H9=Hl+(H2-Hl)¥(T6+40)/40 

3230 

GO  TO  8495 

3235 

IF  H1=0  AND  H2>0 

AND 

H3.':-0 

AND 

.t 

ii 

o 

THEN 

3245 

3240 

GO  TO  8255 

3245 

H9=H2+(H3-H2)*T6/ 

25 

3250 

GO  TO  3495 

3255 

IF  H 1=0  AND  H2=0 

AND 

H3":  0 

AND 

H4>0 

THEN 

S265 

3260 

GO  TO  3275 

3265 

H9=H3+(H4-H3)*(To 

-25 

>/15 

3270 

GO  TO  3495 

3275 

LIST  8255 

3280 

PRINT  ’PROGRAMMED 

' STOP’ 

3285 

STOP 

3290  REM t INTERPOLATE  RATIO  TO  GET  HUM;  PUT  HUM  IN  PLACE  OF  ?9«  UALUE 

3295  H7=5 

3300  READ  334JH8 

8305  IF  R8=>H8  THEN  8320 

3310  H5=9.9 

3315  GO  TO  3370 

3320  H7=H7+5 

8325  IF  H7  >105  THEN  3345 
3330  LIST  8325 

8335  PRINT  * HYGR  RATIO  EXCEEDS  LIMITS > <=*;R8»*>* 

3340  GO  TO  3002 


3345  H6=H8 

3350  READ  334 : HS 

3355  IF  R8>H8  THEN  8320 

3360  REMJR8  IS  IN  RANGE  OF  H6  - H8;  WILL  INTERPOLATE  RATIO  TO  GET  HUM 
3365  H5=H7+5* ( R8-H6  > / i H8-H6 ) 

3370  REM:REPLACE999  WITH  H5  THEN  RETURN 

3375  IF  Hl=999  AND  H2<106  AND  H3<106  AND  H4<106  THEN  3410 

3380  IF  HI <106  AND  H2=999  AND  H3C106  AND  H4C106  THEN  6420 

8385  IF  HI <1 06  AND  H2C106  AND  H3=999  AND  H4C106  THEN  3430 

8390  IF  HI <106  AND  H2<1 06  AND  H3C106  AND  H4=999  THEN  8440 

8395  LIST  8390 

8400  PRINT  ‘PROGRAMMED  STOP* 
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3405  STOP 

8410  HI  =H5 

3415  GO  TO  3450 

3420  H2=H5 

3425  60  TO  8450 

3430  H3=H5 

3435  GO  TO  8450 

8440  H4  = H5 

3445  GO  TO  3450 

3450  RETURN 

3455  H9=H 1 

3460  GO  TO  8495 

3465  H9=H2 

3470  GO  TO  8495 

3475  H9=H3 

3480  GO  TO  8495 

3485  H9=H4 

3490  GO  TO  3495 

3495  IF  H9:.  = 1 00  THEN  3515 

3500  PRINT  'APP  HUM  CHANGED  FROM  *!H9»*  TO  ICO;  T IME-TAG=  * » INT  ( P ( 3 . N ) ) 
8505  H9=l 00 

3510  REM  J THIS  PROG  MODIFIED.  DEBUGGED  % WORKING  AT  SBPT  LEVEL.  MCW770S 
3515  RETURN 

3530  PRINT  * SEL  CALC  M0DE(1=CALC  S DISP  TfP»H?  2 = CALC  ALL  T.P.H)  ' » 

3532  INPUT  FI 

3534  IF  FI =2  THEN  5500 

3536  PRINT  'SELECT  TIME  TAG  (MUST  BE  = < MAX  TIME  TAG-2)*; 

8538  INPUT  D9 

3540  REM:  SBRT  WILL  RETRIEVE  TEM  PER  RAT  08  OF  SPEC  TIME  TAG 

8542  07= 1 

8544  GOSUB  7000 

3545  08=08/1000+0.1 

3546  T9=22. 1*< 1/<N0*D8)-1 >/R3 

3548  TS=65 , 3/ ( 1 -SQR ( 1-0 . 043092 1*L0G ( T9/3 . 3785E-4 ) ) )-273.16 
8550  08=T8 

3551  N=D7 

3552  GOSUB  3750 

3554  R8=P (3«N)-INT(F'(3.N) ) 

3556  R8=249* ( 1 8 . 2-R8#K0*25 . 35 ) / ( N0*R8*274 . 35- 18 . 2 ) /R4 
8558  T6=TS 
8560  GOSUB  8600 

35o2  PRINT  'TIME  TAG.  TEMP.  PRES  . HUM=  ' . 09 ; ' ' ?TS;*  ' « P5  ; ' * J H9 
8564  PRINT  @41 : 'TIME  TAG.  TEMP.  PRES.  HUM=  ' ;D9;*  '?T8»'  'JP5 ' )H9 

3566  PRINT  @41 ; 'PRES  COEF  LC3.6)  ARE  AS  FOLLOWS.*' 

8568  PRINT  @41  :L 
3570  GO  TO  3530 

3600  REM:  CALC  APP  HUM  H9  FROM  HUML  RATIO  RS  AND  TEMP  T6  DEG  C. 

8605  IF  R8=>1  THEN  3625 

8610  GOSUB  3640 

3615  H9=33-H0 

3620  GO  TO  8700 

3625  GOSUB  8660 

3630  H9=33+H0 
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3635  GO  TO  3700 

3640  REM:  ENTRY  POINT  "OR  RS< 1 

8645  B9  = 20 

3650  R9=l/R8 

3655  GO  TO  S675 

3660  REM:  ENTRY  POINT  FOR  R8=>1 
3665  B9=  1 5 
3670  R9=R8 
3675  A9=0.02*To+3.2 

3690  N9=0 . 9- ( 0 . 001 4254T6+0 . 25 ) *LGT  < LGT ( R? ) FI ) "0 . 333333333333 
3685  H0  = A9*L0G(R9"B9)''N? 

3690  RETURN 

3695  REMJ  THIS  SBRT  TESTED  8 DEBUGGED  7S0213  PK-MCU 

8700  RETURN 

8750  rem:  CALC  PRES 

3760  REM:  INPUTS-K0=REF  CONST,  P ( 2 , N ) =PRES  PER  RAT,  D3=C0M  TEMP 
8770  REM:  INPUTS-COEF  IN  L ARRAY 
8730  REM:  OUTPUT-PRES  P5  (MB) 

3790  REM:  CALC  SUPPLY  VOLTS  VO 
3800  V0=7. 629+0. 007o#T4 
3810  G0=L ( 1 , 1 )+L( 1,2)*V0+L( 1 , 3)*V0"2 
3820  G2=L  ( 2 , 1 ) +L ( 2 , 2 ) *VO  + L (2,3)  *V0"2 
8330  G4=L(3, 1 ) +L ( 3 , 2 ) *VO+L ( 3 , 3 ) *V0~2 
3840  D8=D8+273.16 

8850  G1=L( 1 , 4 ) +L ( 1 ,5) 40S+L ( 1 ,6)*08~2 
3860  G3=L(2,4)+L(2»5)*D8+L(2»6)*D3~2 
8870  G5=L ( 3 » 4 ) +L  ( 3 > 5 ) 4D8+L (3,6) *D8~2 
3880  D8=D8-273 . 1 6 

3890  V1=V0*(P(2,N)-INT (P ( 2 ,N) ) )*K0 
3900  P5  = G0*Gl+G2*G3*Vl+G4.lcG5*Vl''2 
8910  RETURN 

9000  REM: LAG-COMP  HUM.  INPUTS-  HUM  C7,  TEMP  C6,  HUM  RATE  C5 5 OUTPUT  G6 

9001  rem:ji=hum  lag-comp  setting  (O-i  : none-ful.d 

9005  IF  C5<0  THEN  9020 

9010  G6=0. 17*( 273. 16/(06+273. 16) ) +0.364(273. 16/(C6+273. 16) ) "1 7 
9015  GO  TO  9025 

9020  G6=0.2*(273. 16/(C6  + 273. 16) )+0. 754(273 . 16/(06  + 273.16)  >"19.3 
9025  G6=C7+G6*C5*J1 

9030  REM: END  OF  HYGRISTOR  LAG-COMPENSATION  PROG 
9035  RETURN 
9100  STOP 

9110  PRINT  ‘SAFE  PROG  CASS  IN  CONSOL  . WEN  RDY  FOR  FIuE  4,  ENTR  R - * * 

9120  INPUT  St 

9130  IF  S*=  * R * THEN  9145 

9140  GO  TO  9110 

9145  DELETE  L 

9150  FIND  4 

9160  DELETE  4750,6960 

9170  DELETE  8000,9145 

9180  APPEND  9200 

9190  REM.*  MODIFIED  FOR  CONTINUOUS  PRESSURE  SENSOR.  PN-780216 
9192  REM:  MODIFICATION-  CALC  OF  THERM  AND  HUML  RES  RATIOS 
9200  REM: FILE  4 GETS  APPENDED  HERE 
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9200  REM:FILE4.  TO  BE  APPENDED  TO  FILE  3 AT  LINE  ®200 
9210  DELETE  9150.9130 
9220  GO  TO  50000 

9590  REMJCALC  ALTITUDE. REFRACTIOITY  PROFILE  INT(P(2.N)) 

9600  REM f MAKE  SURE  INT(P(2»N) ) ARE  ALL  0 

9615  FOR  N= 1 TO  399 

9620  F'(2.N)=P(2.N)-INT(P(2.N> ) 

9625  NEXT  N 

9650  REM : FETCH  SURFACE  PRES 

9660  09=10000* ( P < 2 « P < 2 » 400) ) - 1 NT ( P ( 2 » P ( 2 . 400 ) ) ) ) 

9670  REM ; CALC  LAYER  THICKNESSES.  INT(F‘<2»N>)  CENTIFEET.  09=B0TT0M  PRES. 
9680  REMJ08=T0P  PR.  07=A0G  RH.  V6=AVG  TEMP.  05=SAT  LAP  PR.  04=THKNS  (M) 
9634  REM:  ENTER  SURF  ALT  IN  P-ARRAY  WITH  SURF  PRES 
9686  P ( 2 » P ( 2 » 400 ) ) =P ( 2 . P ( 2 . 400 ) ) PINT ( PI *1 00/0 . 3043+0 . 5 ) 

9690  FOR  N=P ( 2 . 400 ) TO  1 STEP  -1 
9700  REM : FETCH  TOP  PRES 
9710  08=F'  ( 2 .«  400  ) 

9720  08=03-1 

9730  IF  INT  ( F'  ( 1 » 08 ) + 1 ) ■ INT  ( P ( 1 . N ) +1  ) AND  08  >1  THEN  9770 
9740  IF  V8> 1 THEN  9720 
9742  IF  VSOl  THEN  9750 

9744  PRINT  ’REACHED  END  OF  PRES  FILE  WITH  ' > N * * LAYER ( S ) NOT  CALCULATED* 
9746  GO  TO  9940 
9750  LIST  9740 
9760  STOP 

9770  Z9=INT(P(1,V8+1))-INT(P(1.V8)  ) 

9775  08=10000* ( P < 2 > V8 ) -INT ( P ( 2 . V8 ) ) ) 

9780  17= ( V9-V8 ) /Z9 
9735  V9  = V9  + 1 7 
9790  08=08+17 

9792  IF  08 <09  THEN  9800 

9793  GO  TO  9300 

9794  LIST  9792 

9796  PRINT  * TOP  PR* *» 08 .* BOTTOM  PR**; 09 
9798  STOP 

9300  REM : CALC  AOG  RH 

9810  07=500* ( F'(  3 » N- 1 )-INT<P(3.N-l  > ) +P < 3 . N ) -I NT  ( P ( 3 » N ) ) ) 

9320  REM : FETCH  AOG  TEMP  06 

9830  D9=  ( INT  ( P ( 3 . N- 1 > ). + INT  ( P ( 3 » N ) ) > /2 

'^840  GOSUB  7000 

9350  06= DS 

9860  REM : CALC  SAT  OAP  PRES  05  USING  06 
9370  GOSUB  15000 

9880  REMJCALC  THICKNESS  04  3 INCREMENT  ALTITUDE  INT(P<2.N>) 

9890  04=28. 8* (06+273. 16 ) * ( 09*08 ) ~0 . 5 

9900  04=04/(0. 18*07*05+28. S*( ( 09*08 ) "0 . 5-0 . 01 *07*05 ) ) 

9910  04  = -29. 263242*04* (LOG (08/ 1000) -LOG (09/ 1000)  ) 

9912  IF  04>0  THEN  9920 

9913  GO  TO  9920 

9914  LIST  9912 

9916  PRINT  * THKN5=  * * 04 . " N=  * J N 
9918  STOP 

9920  P ( 2 . N- 1 ) = I NT ( P ( 2 « N ) ) + INT ( 1 00*04/0 . 3043  + 0 . 5 ) +P ( 2 . N-l ) - 1 NT ( P ( 2 . N- L ) ) 
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9925  09=08-17 
9930  NEXT  N 

9940  PRINT  * WANT  CENTIFT  ALTS  CORRESPND'G  TO  HUN  VALUES?  1 ( + )*  2(->  - •* 
9950  INPUT  Z9 

9960  GO  TO  Z9  OF  9980*10000 
9970  GO  TO  9940 

9980  PRINT  @41  J * FOLLOWING  ARE  LISTS  OF  TAG. TEMP*  ALT. PRES*  TAG. HUM:* 

9990  PRINT  @41  JP 

10000  REMJCALC  REFRACTIOITIES  i STORE  IN  I NT  ( F'  ( 3 * N ) ) 

10002  FOR  N= 1 TO  399 

10004  P ( 3 * N ) =P ( 3 * N ) - INT ( P ( 3 * N ) ) 

10006  NEXT  N 

10010  FOR  N= 1 TO  P ( 3 > 400 ) 

10040  REM : FETCH  TEMP  D8  AT  TAG  D9 
10050  D8=(P< 1 *N)-0. 1-INT(P< 1 *N) ) >*1000 
10060  06=D8 

10070  REMJCALC  SAT  OAF  PRES  05  FOR  TEMP  06 
10080  GOSUB  15000 

10090  REM  .'FETCH  PRES  08  MB  FOR  TAG  D9 

10105  IF  P ( 2 * N ) =0  AND  NOP  (3*400)  THEN  10160 

10110  08=(P(2*N)-INT (P( 2* N ) ) ) *10000 

10115  IF  08=9999  THEN  10160 

10120  REMJCALC  REFR'Y  N-UNITS*  04 

10125  Z9=1000*(P(3*N)-INT  <P(3*N)  ) ) 

.10130  04=  ( 77 . 6*08-0 . 056*Z9*05 ) / < D3+273 .16) 

10140  04=04+3750*29*05/ (D8+273. 16) "2 
10150  PC  3 *N)=P( 3*N)+INT( 04*1000  + 0. 5) 

10160  NEXT  N 

10170  PRINT  'WANT  LIST  OF  ALT  AND  N UNITS'?  1C  + ) OR  2C-)  — 'i 
10180  INPUT  Z9 

10190  GO  TO  Z9  OF  10210*10230 
10200  GO  TO  10170 

10210  PRINT  @41 J ‘FOLLOWING  ARE  LISTS  OF  TAG . T * ALT . P * N.HJ* 

10220  PRINT  @41 JP 
10230  GO  TO  21000 

15000  REMJCALC  SAT  OAP  PR  05  MB  FOR  TEMP  06  DEG  C*  Z9=(l-t)/t 
15010  Z9= ( l-< 06  + 273. 16)7373. 16>/<  <0o  + 273. 16)7373. 16) 

15020  05=1 013. 246*10" (0.0081 233* ( 10" ( -3. 49149*29  ) -1  ) ) 

15030  ZS=(06  + 273. 16)/373. 16 

15040  V5=05/(ZS"5.02S08*10"(7. 90298*29) ) 

15050  05  = 05/ 10" < 1.38l6E-7*( 10"(11 .344*(  1-28) )-l ) ) 

15060  RETURN 

20000  REM J FETCH  PRES  08  MB  FOR  TAG  D9 
20005  D9=B9+ 1 

20010  IF  D9=> INT ( P ( 1 * 1 ) + 1 ) AND  D9<= INT ( P ( 1 * P ( 2 * 400 ) ) + 1 ) THEN  20060 
20020  LIST  20010 

20030  PRINT  * T AG= ‘ > D9  * * S IS  OUTSIDE  TAG  RANGE  FOR  PRES  FILE* 

20035  PRINT  * NON-OALI D CODE  ••9999* ■ APPLIED  TO  PRES  08  (AT  N=**N**>* 

20040  08=9999 

20045  GO  TO  20170 

20060  Z9= 1 

20070  Z9=Z9+ 1 

20080  IF  INT ( P ( 1 * Z9 ) + 1 ) =.  D9  THEN  20140 
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20090  GO  TO  20070 

20140  08=  ( D9-INT ( P ( 1 ,Z9-1 )+l ) )/( INT(F'(  1 » Z9  ) +1 ) -INT ( P ( 1 > Z9-1  ) + l ) ) 

20150  V8=V8*(P<2»Z9)-INT(P(2rZ?> >-<PC2rZ9-l )-INT(P<2» Z9-1 ) ) ) ) 

20160  08=10000* ( P < 2»  Z9-1 ) -INT  < P < 2 » Z9-1 ) )+08) 

20165  D9=D9- 1 
20170  RETURN 

21000  REM  .'LIST  FT » M r MB  r DEG-C  t %RH » N > M-UNI TS » G/M3 » D-PT-OEP  t N/M  > N/M-CLASS 
21002  PRINT  @41 J 
21004  PRINT  @41 J 

21006  PRINT  @41.**  * > * DETAILED  LIST  OF  ATMOSPHERIC  PARAMETERS* 

21008  PRINT  @41 : 

21010  PRINT  @41 J * ALT ( FT ) ALT ( M)  PR ( MB ) T < DEG-C ) RH<%>  N-UNITS  *5 
21020  PRINT  041  J*  M-UNITS  G/M3  D-PT-DEP  N/M  N/M-CLASS* 

21030  Z*=*  * 

21040  PRINT  @4i:z*»Z*»* * 

21050  REMJW9=NTH  VALUE  OF  ALT(FT),  U8=NTH  VALUE  OF  REFR'Y 
21060  FOR  N= 1 TO  P(3»400) 

21070  U9=0.01*INT(P(2»N) ) 

21072  IF  U9=0  AND  N<P(3.400)  THEN  21400 

21080  U8=INT  < P ( 3 » N ) ) /1000 

21110  REM : FETCH  PR  VS  MB  FOR  TAG  D9 

21130  V8= ( P ( 2 » N ) -INT ( P ( 2 > N > ) ) *10000 

21132  IF  V8=9999  THEN  21400 

21140  REM  1 FETCH  TEMP  D8  DEG  C FOR  TAG  D9 

21150  D8=  < P ( 1 » N)-0. 1-INT(P( 1 »N) ) )*1000 

21170  U1=1000*(P(3»N)-INT(P(3»N) ) ) 

21180  GOSUB  21420 

21190  IMAGE6D . X , 6D . X > 5D . DX , 4D . 2DX , 5D . DX  > 5D . DX , 6D . X ? 4D . 2DX > 5D . DX 
21200  PRINT  @4 1 J USING  21 1 90 : U9 » 0 . 3048*U9 t V8 5 D3 • U1 J W8 i W8+0 . 04S*W9 • J2 » W3 
21210  IF  N=P ( 3 • 400 ) THEN  21400 
21220  W7=0.01*INT(P(2»N+1) ) 

21230  W6=INT(P(3»N+1))/1000 
21240  REM : CALC  N/M  GRAD  W5 
21250  U5=(W8-U6)/(U9-U7)/0.3048 
21280  IF  W5<-0. 07874  THEN  21340 
21290  IF  W5<0  THEN  2132C 
21300  U*=*  SUBFR+  * 

21310  GO  TO  21390 
21320  W$=*  NORML-  * 

21330  GO  TO  21390 

21340  IF  U5<-0 . 1575  THEN  21380 

21360  U*=*  SPRF — * 

21370  GO  TO  21390 
21380  U*=*  TRP * 

21390  PRINT  @41 J USING  * 74D . 4DX t 8A * : U5 i U$ 

21400  NEXT  N 
21410  GO  TO  21580 

21420  REM  .*  CALC  ABS  HUM  W2  GRAMS/CUB  I C-M  AND  DEU  POINT  DEP  U3  DEG  C 
21425  REM : FIRST  CALC  U2 
21430  V6=D8 
21440  GOSUB  15000 

21450  W2  = 596*10*(P(3»N)-INT(P(3fN) ) ) *V5/1 01 3 . 25*373 . 1 6/ ( D8  + 273 . 1 & ) 

21455  REMJENTR  SBRT  HERE  IF  W2  IS  KNOWN  S ONLY  U3  IS  WANTED 
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21460  REM  t NOW  CALC  DEW-POINT  DEP  W3 
21470  V6  = D8 
21480  GOSUB  15000 

21490  W4*0.01*< 1000*(FC3,N)-INT(P<3,N) ) ) ) *05 
21500  04=05 
21510  06=08-1 
21520  GOSUB  15000 

21530  IF  ABS<V5-W4X1.0E-3*W4  THEN  21560 
21540  06=08- (D8-06)*(U4-U4>/< 04-05) 

21550  GO  TO  21520 
21560  W3=D8-U6 
21570  RETURN 
21580  LIST  21600 

21585  PRINT  'IF  WANT  COPY  DISPLAY,  DO  SO  BEFOR  CONTINUING  RUN' 
21590  STOP 

21600  REM : END  OF  PRINTOUT  > WILL  GO  TO  PLOT. 

30000  rem:plot  ALTITUDE  PROFILES  OF  TEMP  * HUM 
30005  PAGE 

30010  rem:select  alt  scale 

30011  N= 1 

30012  U0=0 

30014  UO=UO  MAX  INT(P( 1 , N) )+l 

30015  IF  UO.  INT < P ( 1 , N ) ) + 1 THEN  30020 
30017  N=N+ 1 

30013  GO  TO  30014 

30020  IF  0 . 01  *U0>1 5000  THEN  3005C 

30030  U0= 1 5000 

30040  GO  TO  30095 

30050  U0=30000 

30095  REM : PLOT  TEMP  AXES 

30100  VIEWPORT  5,75,5,95 

30110  WINDOW  -40, 30, -500, UO 

30120  AXIS  5 , UO/ 15,-40,0 

30130  MOVE  -40, UO 

30140  PRINT  * L88NFT  * , ' TEMP ( DEG  C) * . * *.,RH(%)‘ 

30150  PRINT  UO/IOOO,*  * , 'HHDROP  # * ? NO  f * JH8HH88B  * ,‘  D1 

30160  MOVE  -40,2*U0/3 

30170  PRINT  •88* J2»U0/3000 

30180  MOVE  -40.U0/3 

30190  PRINT  * 88  ’ f U0/3000 

30200  MOVE  -40,0 

30210  PRINT  ’HO* 

30220  MOVE  0,-500 
30230  PRINT  •JOti* 

30240  MOVE  -20,-500 
30250  PRINT  *288-2011  * 

30260  MOVE  20,-500 
30270  PRINT  •JH20tS* 

30280  REM : PLOT  TEMPS 
30290  D7= 1 

30300  FOR  N=2  TO  P(3,400) 

30320  D8= ( P ( 1 ,N-1  )-0. 1-INT  (F  ( 1 ,N-1 ) ) )*1000 
30325  D0=0.01*INT < P ( 2 , N-l ) ) 


I 
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30330  IF  ABS ( D8 ) >60  OR  D0=0  THEN  30390 
30340  MOVE  D8  , DO 

30360  08=  ( P ( 1 • N ) -0 . 1 - INT  ( F'  ( 1 , N ) ) )*1000 
30365  D0=O.01#INT<F'<2,N>  ) 

30370  IF  ABS COS) >60  OR  00=0  THEN  30390 

30380  ORAW  03*00 

30390  NEXT  N 

30395  REM : PLOT  HUM  AXES 

30400  VIEWPORT  77*127*5*95 

30410  UINOOW  0* 100,-500*U0 

30420  AXIS  10*U0/15 

30430  MOVE  0*-500 

30440  PRINT  'JOK' 

30450  MOVE  50.-500 
30460  PRINT  * JH50K * 

30470  MOVE  100.-500 
30480  PRINT  •JHHlOOL' 

30490  REM : PLOT  HUMS 
30500  FOR  N=2  TO  F'(3*400) 

30510  09=1000# <P(3»N-1)-INT(P (3.N-1  ) ) ) 

30515  D0=0 .01# I NT ( P ( 2 * N— 1 ) > 

30520  IF  D9>100  OR  D0=0  THEN  30570 
30530  MOVE  D9.D0 

30540  09=1000# ( P ( 3 * N ) -INT ( P ( 3 > N ) ) ) 

30545  00  = 0 . 0 1 #INT ( P ( 2 . N > ) 

30550  IF  09 > 1 00  OR  00=0  THEN  30570 
30560  ORAW  09.00 
30570  NEXT  N 
30574  COPY 

30576  FOR  N=1  TO  2200 
30573  NEXT  N 
30580  COPY 

30582  FOR  N=1  TO  2200 
30533  NEXT  N 
30584  COPY 
30536  PAGE 

40000  rem:plot  ALTITUDE  PROFILES  OF  N-  % M-UNITS 
40050  VIEWPORT  5*75.5*95 
40060  WINDOW  200 . 400 * -500 . UO 
40070  AXIS  20.U0/15. 200*0 
40080  MOVE  200. U 0 

40090  PRINT  * KitiHKFT  * * * REFR / Y ( N-UNITS ) * . * •* 'M-UNITS* 
40100  PRINT  U0/1000.'  * . 'HUDROP  * * i NO i * JHHHtJHdU  * * 01 
40110  MOVE  200 . 2#U0/3 
40120  PRINT  ' HH  * > 2#U0/3000 
40130  MOVE  200.U0/3 
40140  PRINT  'HH’;U0/3000 
40150  MOVE  200,0 
40160  PRINT  'HO' 

40170  MOVE  30C.-500 
40180  PRINT  * Jt)300b. ' 

40190  MOVE  240,-500 
40200  PRINT  ' Jfc)240l£  ' 
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40210  MOVE  360  > -500 
40220  PRINT  'JH360K  * 

40230  REM i PLOT  N-UNITS 
40240  07=1 

40250  FOR  N = 2 TO  P <3  >40.0) 

40260  D8=INT(P(3fN-l) )/1000 
40270  00  = 0 . 01  It  I NT  ( F'  ( 2 > N-l ) ) 

40280  IF  ABS ( DS-600 ) 400  OR  D0=0  THEN  40340 

40290  MOVE  08  > DO 

40300  D8=INT(P<3> N) )/1000 

40310  00=0. 01*1 NT ( P ( 2 > N ) ) 

40320  IF  ABS( 08-600) >400  OR  00=0  THEN  40340 
40330  DRAW  08  > DO 
40340  NEXT  N 

40350  VIEWPORT  77>127>5>95 
40360  WINDOW  300 , 900  > -500  > (JO 
40370  AXIS  100>U0/15>300>0 
40380  MOVE  300 f -500 
40390  PRINT  'JH300L' 

40400  MOVE  600 >-500 
40410  PRINT  * JH600L  * 

40420  MOVE  900.-500 
40430  PRINT  ' Jl=ltl900fc.  * 

40440  REM  J PLOT  M-UNITS 
40450  FOR  N=2  TO  P(2>400) 

40460  09= I NT ( P ( 3 > N- 1 ) ) /1000 

40465  09  = 09  + 0. 048*0. 01  * INT < P ( 2 > N-l  ) > 

40467  D0=0.01*INT(P(2>N-1 ) ) 

40470  IF  ABS ( 09-600 ) : 390  OR  00=0  THEN  40520 

40480  MOVE  09 >00 

40490  09= I NT ( P ( 3 > N ) ) / 1000 

40495  09=09+0. 043*0.0 1*INT(P(2>N) ) 

40497  00  = 0 . 01  * INT  < F ( 2 > N ) ) 

40500  IF  ABS (09-600) >390  OR  00=0  THEN  40520 
40510  DRAW  09 >00 
40520  NEXT  N 
40522  COPY 

40524  FOR  N=1  TO  2200 
40526  NEXT  N 
40528  COPY 

40530  FOR  N= 1 TO  2200 
40532  NEXT  N 
40534  COPY 
40536  PAGE 

45000  REM  J LIST  SIGNIF  LEVELS  (BASED  ON  LINEAR  FIT  OF  TSH  TO  ALT) 

45002  PRINT  @41 : 

45003  PRINT  @41 J 

45005  PRI  @41  :*  *> 'SIGNIF  LEVS  (T1>H10)  LIST  OF  ATMOSPHERIC  PARAMETERS' 
45007  PRINT  @41 : 

45010  DELETE  S 
45020  DIM  S(2>9) >0(9) 

45030  RESTORE  45050 
45040  READ  @34  : S9 > S8 > S > 0 > M 
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45050  DATA  2>0. 1 . OE-3 r 0 r -9 . OE+99 » 9 . OE+99 » 0 » 0 » 0 » 0 r 0 . 0 . 01 r 0 . -9 . OE+99 
45055  DATA  9 . OE  + 99 , 0 r 0 » 0 > 0 > 0 . 9 . OE  + 99 . 0 * 0 * 0 > 0 > 0 » 0 , 0 » 0 f 1 
45060  REM  .'LIST  FT  > M » MB  > DEG-C » ZRH , N r M-UNI TS » G/M3  . D-F'T-DEF 
45070  PRINT  841 J * ALT ( FT ) ALT ( M ) PR (MB)  T( DEG-C)  RH(Z)  N-UNITS  '5 
45080  PRINT  841 J*  M-UNITS  G/M3  D-PT-DEP* 

45090  2$=' ' 

45100  PRINT  84i:Z$?Z*>*  * 

45110  REM5W9=NTH  VALUE  OF  ALT ( FT ) t U8=NTH  VALUE  OF  REFR'Y 
45120  FOR  N=P ( 2 > 400  ) TO  2 STEP  -1 
45130  W9=0.01*INT(P(2» N) ) 

45150  W8=INT(P(3.N) )/1000 

45160  REM  .'FETCH  PR  VS  MB  FOR  TAG  D9 

45180  V8= ( P ( 2 » N ) -INT (P < 2 > N ) ) ) *10000 

45190  IF  V8=9999  THEN  45500 

45200  REM  .'FETCH  TEMP  DS  DEG  C FOR  TAG  D9 

45210  DS= ( P ( 1 * N ) -0 . 1 - INT ( P ( 1 > N ) ) )*1000 

45220  W1=1000*(P(3»N)-INT(P(3»N) ) ) 

45222  REM : CALC  ABS  HUM  U2  l DEW-F'T-DEP  W3 
45224  GOSUB  21420 
45230  F'9=l  • 1 + D 8/1000 
45240  N9= 1 00*U9+ 1 . 0E-3 

45250  IF  N9= 1 . OE-3  AND  INT ( S ( M . 9 ) ) =0  AND  INT ( S < M » 2 ) ■ . 0 THEN  45500 

45260  GOSUB  45520 

45270  P9=2+U1/1000 

45280  GOSUB  45520 

45285  IF  N= 1 THEN  45300 

45290  IF  S8C1  THEN  45340 

45300  S8=0 

45320  IMAGE6D . X » AD . X » 5D . DX » 4D . 2DX • 5D . DX » 5D . BX , 6D . X » 4D . 2DX * 5D . DX 

45330  PRINT  041'.  USING  45320  JO 

45340  0(1) =U9 

45350  0(2)=0«3043*W9 

45360  0(3) =V8 

45370  0 ( 4 ) =D8 

45380  0 ( 5 ) =W1 

45390  0(6) =U8 

45400  0(7)=W8  + 0.048:KW9 

45410  0(9) =U2 

45420  0(9) =W3 

45500  NEXT  N 

45510  GO  TO  49000 

45520  REMSFIND  SIGNIFICANT  VALUES 

45530  REM  5 INPUT  IS  ID-TAGGED  VALUE  P?  S LINEARITY  BASE  N9 
45540  REM  .'INPUT  TOLERANCES  ARE  S(M>1) 

45550  REM:0UTPUTS:BASE-TAGGED  VALUES  S ( M » 2 ) WITH  FLAG  S3-1  WEN  SIGNIF 
45560  M= INT ( P9 ) 

45570  REM  .'CALCULATE  NEW  SLOPE  S(M»5) 

45580  S(M>5)  = (P9-INT(P9)-(S(Mf2)-INT(S(M>2)  ) ) ) / ( N9-  INT  < S ( M » 2 ) ) 

45660  REM  .‘TEST  NEW  SLOPE 
45665  IF  N<=2  THEN  45690 

45670  IF  S(Mf 5>=>S(M»3>  AND  S ( M > 5 ) <*S < M t 4 ) THEN  45692 
45680  REMJNEU  SLOPE  NOT  OKJ  SET  FLAG 
45690  S8= 1 
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45692 

45694 

45696 

45700 

45720 

45730 

45735 

45740 

45750 

45760 

45762 

45764 

45766 

45767 

45768 

45769 

45770 

45772 

45773 

45774 

45775 
45780 
45790 
45800 
45810 
45820 
45830 
45840 
45850 
45860 
45870 
45880 
45890 

45900 

45901 
45930 

49000 

49001 

49002 

49003 

49004 

49005 

49006 

49007 

49008 
49010 
49020 
49030 
49040 
49050 
49060 
49070 
49080 


REM  I UPDATE  LAST  LEVEL 
S(M,3)=S(M>9) 

S(M»9)  = INT(N9)  + (F'9-INT(P9)  ) 

IF  M<S9  THEN  45930 

REM J FOR  ALL  M.  DECLARE  LAST  VALUE  IF  SIGNIF,  SET  NEW  LIMITS 
FOR  M= 1 TO  S9 
IF  S8<>1  THEN  45762 
S(M>2)=S(M»8) 

S<M»3)=-9.0E+99 
S ( M > 4 ) =9 . 0E  + 99 

REM I CALCULATE  NEW  ACCEPTANCE  SLOPE  LIMITS 
IF  N9>INT ( S ( M » 2 ) ) THEN  45772 

S(M>6)=S(Mr9)-INT ( S < M » 9 ) )+S(M» 1 )-<S(M»2)-INT ( S ( M r 2 ) > ) 

S ( M r 6 ) -S ( M r 6 ) / ( N9- INT ( S ( M » 2 ) ) ) 

S(Mf7)=S<Mr9)-INT(S(Mr9))-S(M»l)-(S(Mf2)-INT(S(M»2))) 

S(M»7)=S(Mf 7)/(N9-INT(S(M»2)  ) ) 

GO  TO  45780 

S(M>6)=S<M»9)-INT(S(M»9) )-S(M»l)-<S(M»2)-INT<S(M>2) ) ) 
S(M>6)=S(M»6)/<N9-INT ( S ( M » 2 ) ) > 

S(M»7)=S(M»9)-INT(S(Mf9))+S(Mfl)-<S(M»2)-INT(S(M*2))> 
S(M»7)=S(M»7)/(N9-INT ( S<  M » 2 ) ) ) 

REM J UPDATE  SLOPE  ACCEPTANCE  LIMITS.  START  WITH  TEST  OF  MIN  SLOPE 

IF  S ( M f 6 ) >S < M » 3 ) THEN  45820 

REM : MIN  ACCEPTABLE  SLOPE  OK  AS  IS 

GO  TO  45840 

REM J UPDATE  MIN  ACCEPTABLE  SLOPE 
S ( M > 3 ) =S ( M » 6 ) 

REM : NOW  TEST  MAX  SLOPE 
IF  S ( M » 7 ) <S ( M » 4 ) THEN  45880 
REM  .‘MAX  ACCEPTABLE  SLOPE  O.K.  AS  E3 
GO  TO  45900 

REM : UPDATE  MAX  ACCEPTABLE  SLOPE 
S(Mf 4)=S(Mf 7) 

NEXT  M 
M=M- 1 
RETURN 

REMJLIST  ATMOSPHERIC  PARAMETERS  AT  MANDATORY  PRES  LEVELS  Y ( M ) 
PRINT  841 : 

PRINT  841 : 

PRINT  841 :*  * f * MANDATORY  LEVELS' 

PRINT  841 : 

PRINT  84 1 J * ALT  ( FT ) ALT  < M ) PR  ( MB  ) T ( DEC-C ) RH  ( ’/. ) N-UNITS  *5 
PRINT  841 :•  M-UNITS  G/M3  D-PT-DEP' 

Z*»'  ' 

PRINT  041 ' 

DIM  Y < 7 ) 

RESTORE  49040 
READ  8 3 4 : Y » M » T 9 

DATA  lOOOf 850>700»500»400,300*250»0»  1 
REM : FETCH  SURF  PRES  FROM  P ARRAY 
V8= 1 0000* ( P ( 2 > P ( 2 » 400 ) ) -INT ( P<  2 » P (2  » 400 ) ) ) ) 

REM : FETCH  TIME-TAG  D9  FROM  P ARRAY  USING  PR  V8 
GOSUB  49370 
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49090 

49095 

49100 

49110 

49120 

49122 

49124 

49126 

49130 

49140 

49145 

49150 

49160 

49170 

49180 

49190 

49195 

49200 

49205 

49210 

49220 

49230 

49240 

49250 

49252 

49254 

49256 

49258 

49260 

49270 

49275 

49280 

49290 

49300 

49310 

49320 

49330 

49340 

49350 

49355 

49357 

49360 

49370 

49380 

49390 

49400 

49410 

49420 

49430 

49440 

49450 

49460 

49465 


REM1USE  TAG  D9  IN  <P(l,N>+2>  TO  FIND  N S INTERP  FRACTION  NO 
IF  D9= 1 THEN  49355 
GOSUB  49510 

REM J USE  N S NO  TO  GET  ALT  W9  FROM  P(2rN> 

W9=INT(P(2fN)  ) 

IF  M>0  THEN  49130 
U9=INT (P<2»P(2» 400 ) ) )/100 
GO  TO  49150 
Z9=INT ( P ( 2 > N- 1 ) ) 

W9=0.01*(W9+N0*<Z9-U9>  ) 

IF  T9=>W9  THEN  49355 

REM J USE  N S NO  TO  GET  N-UNITS  U8  FROM  INT(P(3»M)> 

W8= INT ( P ( 3 * N ) >71000000 
Z9=INT <F’(3»N-1 ) >/ 1000000 
W8=1000*(U8+NO*<Z9-W8>  ) 

REM  .’FETCH  TEMP  D8  FOR  TAG  D9 

D9=D9-2 

GOSUB  7000 

D9=D9+2 

REM : USE  N l NO  TO  GET  %RH  t U1 
W 1 =P ( 3 r N > - 1 N T ( P ( 3 f N ) ) 

Z9=P(3»N-1 )-INT(P(3f N-l ) ) 

W1=1000*(W1+N0#(Z9-W1 ) ) 

REM : CALC  ABS  HUM  W2 
U6-D8 

GOSUB  15000 

U2=596*0.01*U1*05/1013.25*373. 16/(D8+273. la) 

REM CALC  DEU-PT-DEP  U3 
GOSUB  21455 

PRINT  l?41  J USING  45320 W9  r 0 , 3043*U9  » 08 > D8  r W1  > U8  . W8+0 . 048*149  . W2 » 
T9=W9 

IF  M>0  THEN  49320 

REMISURF  PR  DONE.  OMIT  1000  MB  IF  SURF  PR  =1000 
IF  Y8>1000  THEN  49320 
M=M+1 
M=M+ 1 

IF  M =3  THEN  49355 
08=Y (M) 

GO  TO  49070 

PRINT  'END  OF  PROCESSING’ 

REM.*  THIS  FILE  ALTERED  FOR  CONT  PRES  SENSOR.*  PK-MCU-780314 
END 

REM : FETCH  TAG  D9  FOR  PR  V8 
D9-P ( 2 i 400 ) 

Z8»10000*<P<2»D9)-INT(P<2f D9)  ) ) 

Z9=l 0000* (P  (2r  D9-1 ) - INT  ( P ( 2 » D9-1 ) ) ) 

IF  V8CZ9  THEN  49430 
IF  U8<=Z8  THEN  49460 
LIST  49420 

PRINT  *PR  V8  TOO  GREAT  FOR  TABLE  P<2>  )* 

STOP 

F9=(Z9-Z8)*< INT<P( 1 .09-1 ) + 1 ) - INT ( P ( 1 » D9 ) +1 ) ) f 0 . 5 
D9=INT  < P < 1 » D9 ) + 1 ) +INT  < (V8-ZB)/F9) 
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49470  GO  TO  49500 
49480  09=D9- 1 
49485  IF  D9=l  THEN  49500 
49490  GO  TO  49390 
49500  RETURN 

49510  REM  J USE  TAG  09  TO  FIND  INTERP  BASE  N g FRACTION  NO  FROM  PC3,  > 
49520  N=P ( 3 > 400 ) 

49530  Z8=INT <P<l*N))+2 
49540  Z9=INT<P(1»N-1) )+2 
49550  IF  D9<Z9  THEN  49620 
49560  IF  D9<=Z8  THEN  49600 
49570  LIST  49560 

49580  PRINT  'TAG  09  > TABLE  TAGS* 

49590  STOP 

49600  N0=(09-Z8)/(Z9-ZS) 

49610  GO  TO  49640 
49620  N=N- 1 
49630  GO  TO  49530 
49640  RETURN 

50000  REM J OETERMIME  SURF  PRES 

50010  PRINT  * P < 2 » * * P ( 2 • 400 ) i ’ )=  * i P ( 2 r P (2 1 400 ) ) 

50020  FOR  N=  1 TO  P(2..400) 

50030  U9  = P ( 2 » P ( 2 f 400  ) ) - INT  ( P ( 2 » P ( 2 .*  400  ) ) ) 

50040  U8=P(2rP(2/400)-N)-INT(P<2»P(2»400)-N)  ) 

50050  PRINT  * P ( 2 » * > P < 2 » 400 ) -N ) * ) = * »P<2»P(2> 400 ) -N ) 

50060  IF  U9-U8=>1 . OE-3  THEN  50080 
50070  NEXT  N 

50080  FOR  U5=N  TO  1 STEF ' -1 

50090  U7=P<  2 r P ( 2 > 400 ) -U5 ) - INT  ( F'  ( 2 > F‘ ( 2 r 400  ) -U5 ) ) 

50100  U6=P (2r  P (2  f 400) -U5+1 ) -INT ( P < 2 r P ( 2 , 400 ) -U5+ 1 ) ) 

50110  IF  U6-U7<=0  THEN  50130 
50120  NEXT  U5 
50130  N = P < 2 r 400 ) -U5 

50140  PRINT  •P<2»,;N>*>  HAS  BEEN  CHOSEH  AS  SURF  PRES* 

50150  PRINT  * WANT  TO  CHANGE  SURF  PRES?  ENTR  1(f)  OR  2<->** 

50160  INPUT  Z9 

50170  GO  TO  Z9  OF  50190^50210 
50180  GO  TO  50150 

50190  PRINT  'CHOOSE  SURF  PRES  FROM  LIST  OF  P<2»N)»  ENTR  N * i 

50200  INPUT  N 

50210  P(lr400)=N 

50220  P ( 2 » 400 ) =N 

50230  P < 3 » 400 ) =N 

50240  PRINT  @4i:*SURF  PRES=  * i 10000* ( P ( 2 t P ( 2 » 400 ) ) -INT ( P< 2 > P( 2 » 400 ) ) ) ) 
50250  GO  TO  9590 
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